Help for this page

Select Code to Download


  1. or download this
    BEGIN{push @INC, 'C:\ads\lib';}

or 

use lib 'C:\ads\lib';
  2. or download this
    $_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.