Select Code to Download

use WWW::Mechanize;
$mech = WWW::Mechanize->new();
...
print $mech->find_link(url_regex => qr/^mailto:/)
           ->url,
      "\n";