#!/usr/bin/perl
use WWW::Mechanize::Firefox;
my $ff = WWW::Mechanize::Firefox->new(activate => 1, autoclose => 0, 'tab' => "current");
my @links = $ff->selector('a');
for my $link (@links) {
	my @keys = $link->__keys();
}