#!/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();
|