require LWP::UserAgent;
import LWP::UserAgent(qw(whatever));
no strict subs;
my $ua=LWP::UserAgent::New;