下面是一个骨架.你只能调用perl一次.因为通过它-x开关说你会发现这个文件中嵌入的perl代码,perl读取文件,直到找到一个perl shebang(#！… perl)并开始在那里执行. Perl会忽略__END__之外的所有内容,而且因为你告诉DOS去转发endofperl,所以直到找到标签就不会有任何麻烦.

@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %*
goto endofperl


@rem -- BEGIN PERL -- ';
#!d:/Perl/bin/perl.exe -w
#line 10

use strict; 


__END__
:endofperl