my $sftp = Net::SFTP::Foreign->new(host =>$host, password => $password, user => $username, ssh_cmd => 'ssh', more => [-v], port=>22); # or die "Cannot connect to $@";                     
warn( "#######################  Connected  #######################\n");

#$sftp->put("file.txt", "file.txt", copy_perm => 0);#  or die "Cannot connect to $@";                                                                                                      
my @files = $sftp->ls();

foreach my $f ( @files )
{
    foreach my $file_ref ( @{$f} )
    {
        print "Found file: " . $file_ref->{'filename'} . "<br>\n";
    }
}