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