use HTTP::Cookies;
use LWP::UserAgent;

my $arg = shift;

my $ua = LWP::UserAgent->new();
my $cookies = new HTTP::Cookies();
$ua->cookie_jar($cookies);

my $res = $ua->get(
    'http://www.airport-data.com/search/intl-airports.php',
    field   => 'code',
    kw      => $arg
);
print $res->as_string();