//: C:\MyScript.pl #!/usr/bin/perl -w $x = "foo"; __END__ output: Name "main::x" used only once: possible typo at scratch.pl line 2 ///~ C:\> MyScript