Select Code to Download

 perl -wMstrict -le 'print qq{perl version: $] \n};;; my $x; my %y= ("
+h"=>1, "i"=>2);  print $x, $y{x}; printf "%s", $x;'

perl version: 5.018002

...
Use of uninitialized value $x in printf at -e line 1.
</b>