Select Code to Download

#!/usr/bin/perl
use WWW::Mechanize::Firefox;
...
for my $link (@links) {
    my @keys = $link->__keys();
}