use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;

my $url = 'http://emma.msrb.org/MarketActivity/RecentTrades.aspx';
my $cookies = HTTP::Cookies->new( file => "cookies.dat",autosave => 1, ignore_discard => 1 );
my $mech = WWW::Mechanize->new( cookie_jar => $cookies );
$mech->proxy(['http'], 'http://http.proxy.fmr.com:8000');
my $response = $mech->get($url);
        $cookies->save( "cookies.dat");
if ($mech->success()){ print "Successful Connection\n"; }
else { print "Not a successful connection\n"; }
my ($button) = $mech->find_all_inputs(
        type  => 'image',
        name_regex => qr/yesButton$/,
);
print("button = $button->{name}\n");
if (defined $button) {
        print "clicking button...\n";
        $mech->click($button->{name});
        $cookies->save( "cookies.dat");
        $mech->dump_text;
}