#!perl -w
use strict;
use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->update_html(<
Test
Google
Say Hello
HTML
my @links = $mech->find_all_links_dom(url_regex => 'asdf.html');
foreach my $link (@links) {
#print $link->{onclick};
print $link->{click};
};