From:	(PerlDiscuss - Perl Newsgroups and mailing lists)	Date:	Tue May 18 09:00:25 2004
Subject:	Net::FTP::Recursive;

I am using the Recursive Lib to copy directories from one location to
another. However, I would like to verify that I was able to make a
successful connection to the server by the following code. If the
connection fails, it goes to a subroutine that prints out the errors. This
error handling  successful for all the other routines, like logging in,
cwd, or rput. However, when I test the connection piece, i get the
following error message.

"Can't bless non-reference value at
/usr/local/lib/perl5/site_perl/5.6.1/Net/FTP/Recursive.pm line 25."


The following is the code:
$ftp = Net::FTP::Recursive->new($host, Timeout=>60) or $newerr=1;
        push  @ERRORS, "Can't login to server: $host: $!\n" if $newerr;
        $ftp->quit if $newerr;
        myerr() if $newerr;
        print "Connected to $host\n";

sub myerr {
  print "Error!!: \n";
  print @ERRORS;
  exit 1;
}