@echo off
setlocal
set cmd=%~f0
set cmd=%cmd:~0,-4%.pl
perl -w %CMD% %*