my $filename = 'somefile';
        my $newuser = 'someuser';

        my $newuid = getpwname($newuser)[2];
        my $oldguid = stat($filename)[5];
        return ($newuid && chown($newuid, $oldguid, $filename));