Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
#use CGI::Carp('fatalsToBrowser');
...
</body>
</html>
EndHTML

Select or download this

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.