Select Code to Download

@rem = '--*-Perl-*--
@echo off
...
print "z\n" if $opts{'z'};
__END__
:endofperl

@rem = '--*-Perl-*--
@echo off
...
print "z\n" if $opts{'z'};
__END__
:endofperl

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

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