use NET::FTP;
my $hostname='superwarez.com';
my $user='warez';
my $password='warez';
my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->login($username,$password);
$ftp->binary;
$ftp->cwd("/pub/uploads");
$ftp->put("mystuff.txt");
$ftp->get("warezlist.txt");
$ftp->quit
[download]