Select Code to Download

use strict;
...
        debug    => 0,
        protocol => 2
    );

use strict;
use Data::Dumper;
...
        debug    => 0,
        protocol => 2
    );

C:\TWO\scratch>perl sftp.pl
...

C:\TWO\scratch>