I showed all of the values returned from stat for didactic purposes - if you just want the UID and GID you would be better to use an array slice:

my ($uid,$gid) = (stat($filename))[4,5];
[download]

/J\