This doesn't seem to be right.

#!/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
[download]

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
[download]

It can't be all numbers, right?

On the contrary (for unix-like systems, at least), the uid and gid are always numeric. To get the name (string) associated with a given numeric gid value, you need to grep for that number in /etc/groups (and to get the user login name for a given uid, you look up the uid in /etc/passwd).

Or this:

perl -e '$groupname=getgrgid("33200");print "groupname: $groupname\n"'
[download]



--chargrill

---

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]