$Ua = CPAN::LWP::UserAgent->new;

##</code><code>##

$Ua->agent('some_string_the_firewall_likes');