@echo off
perl -x %0.bat
goto exit
#!perl

printf "
This is a self-running perl script for DOS.

"

__END__
:exit