Select Code to Download

use Fcntl ':mode';

...
  # directory
  ...
}

my $ssh2 = Net::SSH2->new();
my $sftp = $ssh2->sftp();
...
my %fstat = $sftp->stat("${testdir}");

my $perm = $fstat{"mode"} & 07777;