#!/usr/bin/perl -w  
use strict;

$>=$<=48; # uid
$)=$(=48; # gid
setpgrp $$,48;

open(FH,">/tmp/new.txt");
close(FH);