Select Code to Download

C:\>perl -w
print $x
...
Use of uninitialized value $x in print at - line 1.

C:\>