##############################
#! usr/bin/perl
use Net::SFTP::Foreign;

$host="myserver";
$username="vendor1";
$portnumber=22;

%args={port => $portnumber ,host =>$host ,user => $username ,debug => 1};

my $sftp = Net::SFTP::Foreign->new($host,%args);
@str=$sftp->ls("/home/vendor1/");

foreach $hashref(@str)
{
    foreach $key(keys%$hashref)
    {
        print "\t $$hashref{$key}\t";
    }
    print "\n";
}
#########################