#!/usr/bin/perl -w

use Net::FTP;

my $destserv="ftp.perlmonks.org";
my $destuser="root";
my $destpass="joph";
my $file="yourmom.jpg";


$ftp = Net::FTP->new($destserv) or die "error connecting\n";
$ftp->login($destuser,$destpass);
$ftp->binary();
$ftp->get($file) or die "error downloading\n";
$ftp->quit();