use strict;
use lib '/myperllib';
use Net::SFTP::Foreign;
my $host="root\@10.111.11.11";
my $password="password";
my $sftp = Net::SFTP::Foreign->new($host, fs_encoding => 'latin1');
my @ls = map { $_->{filename} } $sftp->ls('/root/mydirs');
foreach my $myfile (@ls)
{
        print "File: $myfile\n";
}