Select Code to Download

use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 0 );
...
{
    printf "* %s\n  -> %s\n", $link->text, $link->url_abs;
}