#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use warnings;
#use strict;

use CGI qw/:standard/;

print header, start_html("test");

#print test";

my $filename = "/home/name/public_html/test/";

 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks)
           = stat($filename); 

print "permissions for $filename are..<p>";


print <<"END";
dev $dev <br>
ino $ino <br>
mode $mode <br>
nlink $nlink <br>
uid $uid <br>
gid $gid <br>
rdev $rdev <br>
size $size <br>
atime $atime <br>
mtime $mtime <br>
ctime $ctime <br>
blk size $blksize <br>
blocks $blocks

END


##</code><code>##

permissions for /home/name/public_html/test/ are..
dev 2053 
ino 6916114 
mode 16877 
nlink 7 
uid 33197 
gid 33200 
rdev 0 
size 4096 
atime 1140992338 
mtime 1140911929 
ctime 1140911929 
blk size 4096 
blocks 8