Select Code to Download

Select or download this

*** file permisions: $VAR1 = bless( {
                 'uid' => 500,
...
                 'size' => '0'
               }, 'Net::SFTP::Attributes' );

Select or download this

 my $attrs = Net::SFTP::Attributes->new(Stat => [ stat "test.file" ]);
        print "*** file permisions: " . Dumper($attrs) ."\n";
...
        $attrs = Net::SFTP::Attributes->new(Stat => [ stat "test.file"
+ ]);
        print "*** file permisions: " . ($attrs->{'perm'}) ."\n";