eval q(
use LWP::UserAgent qw(whatever);
my $ua=LWP::UserAgent::new;
);