my $uid = (stat $filename)[4];
my $user = (getpwuid $uid)[0];