[hide=20][code]use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
$b = LWP::UserAgent->new() or die;
$b->agent('GoogleZilla');
print q$
***********************************************
Printable View
[hide=20][code]use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
$b = LWP::UserAgent->new() or die;
$b->agent('GoogleZilla');
print q$
***********************************************