BEGIN{push @INC, 'C:\ads\lib';}

or 

use lib 'C:\ads\lib';

##</code><code>##

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