#!/usr/bin/perl -w

# Usage:
# perl ftp.pl host username password

use Net::FTP;
$host     = $ARGV[0];
$user     = $ARGV[1];
$password = $ARGV[2];

$ftp = Net::FTP->new($host);
$ftp->login($user, $password);
$ftp->cwd("/pub");
$dir = $ftp->dir();
foreach $line ( @$dir ) {
   print "$line\n";
}
$ftp->binary();
$ftp->get("filename.tgz");
$ftp->quit();