$b=$b+1;
print ":".$b.":"."\n";
$c[0001]=1;
print ":".$c[1].":"."\n";
$a = "<<2341<";
print ":".$a.":"."\n";
$a =~ s/</&lt;/g;
print ":".$a.":"."\n";
