@echo off
perl -w %~dpn0 %*