Select Code to Download

my $mech = WWW::Mechanize->new();
$mech->get("http://dspace.mit.edu/handle/1721.1/53720");

my $mech = WWW::Mechanize->new();
warn "Fetching $ARGV[0]\n";
$mech->get($ARGV[0]);

perl -w listanand.pl http://google.com