$logfile = "tempfile.tmp";
$logfileOrig = "logfile.log";


chmod 777, $logfile;     #the 777 is for testing,  
chmod 777, $logfileOrig; #it won't be WIDE open

sub makeff {

	#copy existing logfile to tempfile, while skipping record I want deleted
		
	open (LOGFILE, ">$logfile") or die("Can't Open Log File at $logfile");
	open (ORIG, "<$logfileOrig") or die("Can't Open Log File at $logfileOrig");

	while (my $origLine = <ORIG>) {

	$currentline ++;
		print LOGFILE $origLine unless $currentline == $linenumber;
	}

	close (ORIG);
	close (LOGFILE);
	rename $logfile, $logfileOrig if $linenumber;
}