#!/usr/local/bin/perl5


require 'ftplib.pl';


$FtpHost = "panix.com";

if (&ftp::open($FtpHost) != 1) {
die "can't open $FtpHost\n";
}
if (&ftp::cwd(pub) != 2) {
    die "Can't change directories\n";
}
if (&ftp::cwd(gizmo) != 2) {
    die "Can't change directories\n";
}

@dirList = ftp::list();


foreach (@dirList) {

    print("\t$_\n");

}

$file = 'ninpaths.txt';

if (&ftp::get($file) != 1) {
    die "cannot get $file\n";
}

&ftp::close;