use strict;
use warnings;

use LWP::UserAgent;

my $lwp = new LWP::UserAgent;

$lwp->default_header("Cookie" => "jscript=1");

my $resp = $lwp->post("http://www.expedia.com/pub/agent.dll?qscr=fltw&rfrr=-1066&&zz=" .time() . "&",
    {    city1 => 'Frankfurt',
        pcity1=> 'Berlin, Germany (BER-All Airports)',
        date1 => '09/10/05',
        date2 => '11/10/05'
    }
);

print $resp->content;