use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->quiet(1);
$mech->get("http://www.thesite.com/sample.asp");
my $content = $mech->content();
print $content;