use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = 'http://locks.asu.edu/rdltest.htm';
$mech->get($url);
my $inputobject = $mech->current_form()->find_input('dl.start',undef,1);
my $response = $mech->click_button(input => $inputobject);