use Net::FTPSSL;

  my $ftps = Net::FTPSSL->new('SERVERNAME', 
			      Port => 21,
            Encryption => EXP_CRYPT,
			      Trace => 1,
            Debug => 2
			      )
    or die "Can't open ftp.yoursecureserver.com\n$Net::FTPSSL::ERRSTR";
  $ftps->login('USER', 'PASSWORD') 
    or die "Can't login: ", $ftps->last_message();

  $ftps->binary() or die "Can't change directory: " . $ftps->last_message();
  $ftps->put("filezilla.log") or die "Can't get file: " . $ftps->last_message();
  $ftps->get("mokmok.txt") or die "Can't get file: " . $ftps->last_message();

  $ftps->quit();