my $ls = $sftp->ls or die "unable to retrieve directory: " . $sftp->error;
my @long = map $_->{longname}, @$ls;
print Dumper(\@long);