my $result=function_one
  sub function_one{
		#blah, blah
  }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

require LWP::UserAgent;
import LWP::UserAgent(qw(whatever));
my $ua=LWP::UserAgent::new();
#continue doing what you do with LWP...