use strict; use LWP; my $url = 'ftp://path/to/a/greatbigfile'; my $agent = LWP::UserAgent->new; my $request = HTTP::Request->new(GET => $url); $agent->proxy('ftp' => 'http://our.proxy.server:8080'); my $response = $agent->request($request); $response->is_success or die "$url: ", $response->message,"\n"; open(MYOUT, ">/home/greatbigfile.") or die "No open? $!"; print MYOUT $response->content; close(MYOUT);