#################### Download
my $ua = new LWP::UserAgent(agent => 'MyAgent/1.0') or die "Error: Cannot create object";
$ua->proxy([qw(http https ftp)] => 'http://proxyhost:8080') or die "Error: Problem with Proxy";
my $response = $ua->get('ftp://ftpuser:password@ftp.host.name/remotefile.zip', ':content_file' => localfile.zip) or warn "Warn: Failed to download file from FTP Server ";
if ($response->is_success) {
print "Found file on remote server \n";
}
else {
print "File missing on remote server \n";
}
#####################