#!/opt/local/bin/perl -w

use LWP::UserAgent;
use HTTP::Request;

if (@ARGV == 2) {
    $Year = $ARGV[0];
    $SearchCCC = $ARGV[1];
    $MyCCC = $ARGV[1];
    $SearchMode = "browse";
}
else {
    die("usage: $0 year CCC\n");
}

$url = "http://web.aero.org/cgi-bin/doc_search.cgi" . "?" .
    "Year=$Year"             . "&" .
    "SearchCCC=$SearchCCC"   . "&" .
    "MyCCC=$MyCCC"           . "&" .
    "SearchMode=$SearchMode" . "&";

# Create a user agent object
$ua = new LWP::UserAgent;
$ua->agent("indexer/1.0");

# Create a request
$req = new HTTP::Request(GET => $url);

# Pass request to the user agent and get a response back
$res = $ua->request($req);

# If response was received, handle it
if ($res->is_success()) {
    print($res->content());
}
else {
    die("ERROR: query failed\n");
}