#!perl 

print "TEST\n";
print "ARGV: ..@ARGV..\n";
<>;

##</code><code>##

c:\pl2bat test.pl
c:\test.bat
HELLO
ARGV: ....

c:\test.bat test.pl
HELLO
ARGV: ..test.pl..



##</code><code>##

HELLO
ARGV: ....