$^P= 0x100;

##</code><code>##

  Use of uninitialized value in print at (eval 1)[./testeval.pl:12] line 1.