use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->quiet(1);
$mech->get("http://www.thesite.com/sample.asp");
my $content = $mech->content();
$mech->content =~ qr(\.location = "(http://.*?)")
  or die "Couldn't find anything matching '.location = \"http://...\" in $content";
my $new_location = $1;
print $new_location;
$mech->get($new_location);
print $content;

##</code><code>##

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web