#!/usr/bin/perl
use strict;
use warnings;
use Net::FTPSSL;

my $server = "127.0.0.1";
my $username = "someuser";
my $passwd = "somepass";

my @ret;

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

$ftps->login($username, $passwd)
    or error("Credential error, $ftps->last_message");

# get default listing and pwd
@ret = $ftps->list()
    or error("Command error, $ftps->last_message");

print "####################\n";
print join "\n", @ret,"\n";
print "####################\n";

# get default pwd
@ret = $ftps->pwd
    or error("Command error, $ftps->last_message");

print "####################\n";
print join "\n", @ret,"\n";
print "####################\n";

if( -t STDIN ) { print "tty\n"; }

while(1){
  print "Hit Control-C to exit ... otherwise:\n";
  print "Enter command: \n";
   my $com = <STDIN>;
   chomp $com;
   if ($com =~ m/quit/){ print "exiting\n";}

    # needed this eval to get ftps methods to work with pty
    my @ret =  eval "\$ftps->$com";
       if($@) { print "@_\n"; }

print "####################\n";
print  join "\n", @ret,"\n";
print "####################\n";

if ($com =~ m/quit/){ print "exit command received, ftpssl exiting\n"; 
                      print "Control-C to exit pty, or Shift-PageUp to view log\n";
                      last;
                      }
}

print "at end\n";
exit;