/ /home/httpd/perl/logs/lonnet.perm.log if (-e '') # Does file exist? { system('cp .old'); open(IN,'.old'); open(OUT,'>'); while ($line=<IN>) { unless ($line=~/signalled to death/) { print OUT $line; } } close(IN); close(OUT); system('chown www:www '); system('rm .old'); }