This worked for me...

#!/usr/local/bin/perl -w

use strict;
use Net::FTP;

{
   open (FH, ">debug") || die $!;
   *STDERR = *FH; 

   my $ftp = Net::FTP->new ("linux", Debug => 1) || die $!;

   $ftp->login ("foo", "bar");
   $ftp->quit;

   close (FH);
}
[download]

--Chris

e-mail jcwren