my $ls;
	$ls = $sftp->ls()
	or die "unable to retrieve directory: ".$sftp->error;
	if (!$ls) {
	    print "Unable to list files in sftp://$host/$dir\n";
	    logError ("Unable to list files in sftp://$host/$dir");
	    return undef;
	}
	$ls = $_->{longname} for @$ls;
	print Dumper($ls);