#! /usr/local/bin/perl use CGI qw(:standard); import CGI; print "Content-type: text/html\n\n"; print ""; #this variable is the line number to be deleted $to_delete = 2; $current_line = 0; #vars.txt should be the file you want to delete from open (FILE, "vars.txt"); open (TEMP, ">temptemp.txt"); while ($fileline = ){ #replace this with a test for the line you don't want if ($current_line == $to_delete) { print " "; } else { print TEMP $fileline; } } close FILE; close TEMP; open (FILE, ">vars.txt"); open (TEMP, "temptemp.txt"); while () { print FILE $_; } close FILE; close TEMP;