C:\Users\alex>perl -MData::Dumper -E "@a=stat(chr(34).chr(34)) or die $!; say Du
mper(\@a)"
$VAR1 = [
          2,             # device
          0,             # inode
          16895,         # mode = 0x41FF = 040777
          1,             # nlink
          0,             # uid
          0,             # gid
          2,             # rdev
          0,             # size
          1340557931,    # atime
          1340557931,    # mtime
          1336337436,    # ctime
          '',            # blocksize
          ''             # blocks
        ];


C:\Users\alex>