$sftp->ls( $path , sub {
      my $ref = shift;
      if( $ref->{'longname'} =~ /^d/ ) {
     $dir->{$ref->{'filename'}} =$ref->{'a'}->mtime(); 
      } else {
     $file->{$ref->{'filename'}} =$ref->{'a'}->mtime(); 
      }
      
   }