sub ftp_stuff {
  my $ftp_ref = shift;
  $ftp_ref->func( ... );
  $ftp_ref->quit;
}
my $ftp = Net::FTP->new ? ftp_stuff $ftp : warn $!;