[2005]tom@margo ~ $ perl
use Net::SFTP;
use Net::SFTP::Attributes;
my $sftp = Net::SFTP->new('test2.dievision', user => 'MYNAME', password => 'MYPASSWORD', debug => 1);
$sftp->ls('/(some/dir', sub {print STDERR "$_[0]->{filename}\n"});
1;

##</code><code>##

$sftp->ls('/some/dir', sub {my $attrs = $sftp->do_stat($_[0]->{filename});
        print STDERR $_[0]->{filename}, " ", $attrs->gid, " ", $attrs->size, "\n"});