my $ua = LWP::UserAgent->new or die "Problem with the new UserAgent\n";
$ua->cookie_jar(HTTP::Cookies->new);
$ua->agent("Mozilla/4.76 [en] (Windows NT 5.0; U)");
print "And now I'm calling myself ", $ua->agent( ), "!\n";