@echo off
setlocal
perl -w "%~dpn0.pl" %*

##</code><code>##

 Directory of Q:\

27.07.2011  10:18                50 tmp.cmd
27.07.2011  09:01               962 tmp.pl