use LWP::Simple;
use LWP::UserAgent;

$browser = LWP::UserAgent->new();

$browser->agent('Mozilla/5.0 (X11; U; OpenBSD i386; en-US; rv:1.8.1.22) Gecko/20090626 SeaMonkey/1.1.17 XpcomViewer/0.9');

$response = $browser->get('http://brtweb.phila.gov/brt.apps/Search/SearchResults.aspx?id=6546003202');
print $response->content;