@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