$filename = "/tmp/gbl7132005";
$uid = (stat $filename) [4];
print "$uid\n";