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

##</code><code>##

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

##</code><code>##

print join(' ',@ARGV)."\n";

##</code><code>##

C:\>z
-z

C:\>z -z
-z -z
z