#!/usr/bin/perl
$count=0;
open(Fin,"/usr/local/etc/httpd/cgi-bin/tlc/chat.dat");
open(Fout,">/temp_clear");
while(<Fin>){
	if($count <= 40){
		print Fout $_;
	}
	$count+=1;
}
close(Fout);
close(Fin);
system("mv /temp_clear /usr/local/etc/httpd/cgi-bin/tlc/chat.dat");	
