my $outfile = q{mybatchfile.bat};
open( OUTPUT, q{>}, $outfile)
   or die qq{Can't open file $outfile : $!\n};
print OUTPUT <<EOT
@echo off
setlocal
set PATHNAME=C:\TEMP\%1_REGRESSION
set WAIT_TIME=240000
set URL="http://myurl.biz"
set PWD="megapassword"
set EMAIL_TO_STRING="bob@test.com"
EOT