my $ftp = Net::FTP->new( ... );
if ( defined $ftp ) {
  $ftp->func1( ... );
  $ftp->func2( ... );
  $ftp->quit;
} else {
  warn "Hey, this thang ain't workin!  $!\n";
}