#!/afs/athena/contrib/perl5/p -w

use strict;
use FileHandle;
use lib '/mit/bert/PERL';
use Finger;
use FTP;
$FTP::Debug =   10;
$FTP::Verbose = 10;

my($x) = new FTP 'ftp.shsu.edu';
$x->command("HELP");