my $owner = getpwuid($<);