chown($num_uid, -1, $the_file) or warn "Could not change owner of $the_file: $!\n"; print "Changed owner of $the_file from $c_pwuid to $change_value\n";