Select Code to Download

use strict;
use lib '/myperllib';
...
        print "File: $myfile\n";
}

my $ls = $sftp->ls('/root/mydirs', no_wanted => qr/^\./ );
my %size = map { $_->{filename} => $_->{a}->size } @$ls;
foreach my $filename (sort keys %size) {
    print "$filename : $size{$filename}\n";
  }