use strict;
use warnings;
use Net::FTPSSL;

my $host = 'debianserver';
my $ftps = Net::FTPSSL->new(
	$host,
    Port       => 21,
    Encryption => EXP_CRYPT,
    Trace      => 1,
    Debug      => 3,
) or die "Can't open $host\n$Net::FTPSSL::ERRSTR";
$ftps->login( 'test', 'test' )
    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();