#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $url = "http://www.expedia.com/pub/agent.dll?qscr=fltw&rfrr=-1066";

$mech->get( $url );
$mech->form_name( "FltWiz" );

$mech->set_fields("city1" => "Frankfurt");