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