Select Code to Download

$mech->get($_);
if (!$mech->success())
...
    print "get of $_ failed!\n";
    next;
}