Select Code to Download

perldoc -f stat

...
              10 ctime    inode change time in seconds since the epoch
+ (*)
              11 blksize  preferred block size for file system I/O
              12 blocks   actual number of blocks allocated

open MYFILE, '<filename' or die "Can not open: $!";
my $uid = (stat MYFILE)[4];
close MYFILE;

print "UID = $uid\n";