Select Code to Download

#use strict;                     # made redundant by use 5.014_00
#use warnings;                   # made redundant by use 5.014_00

 0:23 >perl -e "print $x;"

...
Use of uninitialized value $x in print at -e line 1.

 0:24 >