@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;
@set "thisfile=%~f0"
echo %thisfile%
@set "thisfile=%thisfile:^=\^%"
@set "thisfile=%thisfile:>=^>%"
@set "thisfile=%thisfile:<=^<%"
@set "thisfile=%thisfile:&=^&%"
@set "thisfile=%thisfile:|=^|%"
@set "thisfile=%thisfile:)=^)%"
@set "thisfile=%thisfile:(=^(%"
@set "thisfile=%thisfile:[=^[%"
@set "thisfile=%thisfile:]=^]%"
@set "thisfile=%thisfile:"=\"%"
@echo escaped-thisfile "%thisfile%"
@echo;
@endlocal