use strict;
use File::stat;
my $file = $0;
my ($st, $uid, $gid);
if (($st = stat ($file))) {
$uid = $st->uid;
$gid = $st->gid;
print "Owner = $uid, Group = $gid, File = $file\n";
} else {
print "Errors were found on $file\n";
}
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).