#an FTP get
my $ua;
$ua = LWP::UserAgent->new();
$ua->agent("$0/0.1 ".$ua->agent);
my $req = HTTP::Request->new(GET => "$url");
my $result = $ua->request($req);