C:\test>type junk.pl
#! perl -c
$x = 1;

C:\test>assoc .pl
.pl=Perl

C:\test>ftype Perl
Perl="c:\perl\bin\perl.exe" -sw "%1" %*

C:\test>junk
Name "main::x" used only once: possible typo at C:\test\junk.pl line 2.
C:\test\junk.pl syntax OK