@echo off perl -x %0.bat goto exit #!perl printf " This is a self-running perl script for DOS. " __END__ :exit