#!/usr/bin/perl -w

use LWP::UserAgent ;
use URI ;

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

$url->query_form(
   'CrdNumber' => "144549",
   'NumRows' => "25",
   'SearchType' => "1",
) ;

my $response = LWP::UserAgent->new->get($url) ;


print $response->content();

exit ;