##

#!/usr/bin/perl  -w

use strict ;
use WIN32::IE::Mechanize ;
use URI ;

my $agent = Win32::IE::Mechanize->new( visible => 1 );
my $url = URI->new( 'http://www.adviserinfo.sec.gov/IAPD/Content/Search/iapd_OrgSearch.aspx' ) ;

$agent->get($url) ;

$agent->form_name("Search2") ;
$agent->field("CrdNumber", "144549") ;

$agent->click_button(name => "go2" ) ;

my $ie = $agent->follow_link(text => "JavaScript:JSubmitForm()" ) ;


exit ;