use strict;
use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://117.247.176.82/VIEWDOCS.aspx');
$mech->autoclose_tab( 0 );
$mech->allow( javascript => 1 );

my @el = $mech->by_id('MainContent_ddldist');
$el[0]->__event('mousedown');
$mech->select( 'ctl00$MainContent$ddldist'=>'BN');
$el[0]->__event('mouseup');
#Well the mouse event did not work, lets trigger on change directly.

$el[0]->__event('onChange');
my @el=$mech->by_id('ctl01');
$el[0]->__event('click');
#even this did not work and I have spent over a day on this... time to seek the wisdom of the monks?.

sleep 10