use WWW::Mechanize;

#Define a new "object" containing your "agent" called $mech.
 
my $agent = WWW::Mechanize->new();

$agent->get( "http://polisci.la.psu.edu/" ); 
$thepage = $agent->content;

print $thepage;