Stuff

	my $ua = LWP::UserAgent->new(agent => 'ZofBot');
	my $response = $ua->get('http://www.site.com/p?' . $what);

	my $cont = '';
        if ($response->is_success) 
        {
        	print "OK: " . $response->content . "\n\n";
            $cont =  $response->content;  
            print "WTF?? $cont\n\n";
        }
        else {
            return "Failed to reach site";
        }