#!perl/bin/perl -w
print "Content-type: text/html\n\n";

use LWP::Simple;
use HTML::TokeParser;
$q=128;

while ($q < 132 )
{

open(FILE, "<D:/MON/3800-$q.html");

while (<FILE>) {
	$data1 .= $_;
}
close (FILE);
$sid = &sid12($data1);
open (MYFILE, '>0071.html');
print MYFILE "$sid<br>";
close (MYFILE);
print "$sid<br><br><br>";

sub sid12{
my $htmls = $_[0];
$htmls =~ s/onClick/HREF/isg;
return $htmls;
}
close (FILE);
unlink("0071.html");
$q++;
}