use Net::FTP;
my $ftp = Net::FTP->new('ftp.rge.com');
$ftp->login('ftp','anon@');
my $okay=$ftp->quot('HELP');
my $code=$ftp->code;
my $message=$ftp->message;
print "[$okay] [$code] [$message]\n";