use LWP 5.64;
use URI;

my $browser = LWP::UserAgent->new;

my $url = URI->new( 'http://us.imdb.com/Tsearch' );
    # makes an object representing the URL
  
$url->query_form(  # And here the form data pairs:
    'title'    => 'Blade Runner',
    'restrict' => 'Movies and TV',
  );
  
my $response = $browser->get($url);

$outputfile = ">temp.htm";
if (open(MyOutputFile, $outputfile)) {
		print "OutputFile '",$outputfile,"' opened OK \n";
	} else {
		print "Cannot open OutputFile '",$outputfile,"'\n";
		exit;
	}
  
print MyOutputFile $response->decoded_content;


WaitForKey();

sub WaitForKey() {
    print "\nPress any key to continue...";
    chomp($key = <STDIN>);
}