use Net::FTPSSL;

  my $remote_server = '100.10.100.101';
  my $port = 21;
  my $encryption = 'EXP_CRYPT';
  my $login = 'mylogin';
  my $passwd = 'mypasswd';
  my $file = "myfile";
  #-------------
  
  my $ftps = Net::FTPSSL->new($remote_server, 
                              Port => 21,
                              Encryption => EXP_CRYPT,
                             ) or die "Can not connect to $remote_server";

  $ftps->login($login,$passwd) or die "Can not log into  $remote_server: " . $ftps->last_message();
  $ftps->put($file) or die "Can not put file $file on $remote_server: " . $ftps->last_message();
  $ftps->quit();