@rem = '--*-Perl-*--
@echo off
perl -x -S "%~dpnx0" -z %*
goto endofperl
@rem ';
#!perl
use Getopt::Std;
print join(' ',@ARGV)."\n";
my %opts = ();
getopt('z', \%opts);
print "z found\n" if $opts{'z'};
__END__
Results:
C:\>x
-z

C:\>x -z
-z -z
z found

:endofperl