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"; }