use File::stat; # yes, that's a lower-case s
print stat($file)->uid;