@setlocal
@set thisdir=%~dp0
@set thisfile=%~f0
@set thisfilebasename=%~n0
@set thisfilename=%~nx0
@set thisfilecorion=%~dpn0.pl
@set thisfilepl=%thisdir%%thisfilebasename%.pl
@echo          thisdir=%thisdir%
@echo         thisfile=%thisfile%
@echo thisfilebasename=%thisfilebasename%
@echo     thisfilename=%thisfilename%
@echo   thisfilecorion=%thisfilecorion%
@echo       thisfilepl=%thisfilepl%
@echo;
@endlocal