Select Code to Download

my $mech = WWW::Mechanize->new();
$mech->get( $url );
...
    print "One link points to " . $link->url;
    print "\n";
};