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