$file = "/path/to/file";
@stat = stat($file);
print "UID of $file = $stat[4]\n";