BEGIN {
  use Net::FTP;
  use IO::Socket::SSL;
  @Net::FTP::ISA = 
    grep { $_ ne 'IO::Socket::INET' } 
      @Net::FTP::ISA;
  push @Net::FTP::ISA, 'IO::Socket::SSL';
}

my $ftp = Net:FTP->new(...); 
#etc