Shell Programming and Scripting

#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP;
use HTTP::Cookies;
#use LWP;
$browser = LWP::UserAgent->new();
my $cookie_jar = HTTP::Cookies->new( file=>'cookies.txt', autosave=>1);
my $response = POST 'http://www.zip-codes.com/account_login.asp?msg=10&redir=account_home.asp',
   [ username => 'Matt123', password => 'usermatt' ];
$content = $browser->request($response)->as_string;
#$req = $ua->request($req);
$a = $content;
print "$content" if $content =~ m/Copyright/g;