use WWW::Mechanize::Firefox;
my $firefox = WWW::Mechanize::Firefox -> new (
tab => "current",
);

$firefox -> click ({ selector => 'a[href*="2012-06-20"]'});