Take a look at perldoc -f stat:

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