@rem = '--*-Perl-*--
@echo off
perl -x "%~dpnx0" %*
goto endofperl
@rem ';
#!perl
use strict;
use warnings;
print "\$ARGV[$_]= $ARGV[$_]\n" for 0..$#ARGV;
use Getopt::Std;
my %opts = ();
getopt( 'z', \%opts);
print "exists z\n" if exists $opts{'z'};
print "defined z='$opts{'z'}'\n" if defined $opts{'z'};
print "\$opts{z} is true" if $opts{'z'};
__END__
:endofperl