Select Code to Download

$ ./stat3.pl
$VAR1 = {
          './stat1.pl' => {
...
my $hashref = \%stat;
print Dumper($hashref);
$

$ ./stat2.pl
...
./stat3.pl is executable
...
                                         8
                                       ], 'File::stat' ),

struct stat {
    dev_t     st_dev;     /* ID of device containing file */
    ino_t     st_ino;     /* inode number */
...
    time_t    st_mtime;   /* time of last modification */
    time_t    st_ctime;   /* time of last status change */
};

#!/usr/bin/perl -w
use strict;
use warnings;
...
}
my $hashref = \%stat;
print Dumper($hashref);