C:\>perl -w
print $x
^D
Name "main::x" used only once: possible typo at - line 2.
Use of uninitialized value $x in print at - line 1.

C:\>