[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;