my $ls = $sftp->ls('/home/foo')
        or die "unable to retrieve directory: ".$sftp->error;

print "$_->{filename}\n" for (@$ls);