my $ftps = Net::FTPSSL->new($server,
                            Encryption => EXP_CRYPT,
                            Debug => 1,
                            Croak => 1)
     or die "Can't open $server\n$Net::FTPSSL::ERRSTR";