foreach $i ($sftp->ls(".")){
  $fname=$i->{filename};