Select Code to Download

my $outfile = q{mybatchfile.bat};
open( OUTPUT, q{>}, $outfile)
...
       qq{set WAIT_TIME=240000\n set URL="http://myurl.biz"\n},
       qq{set PWD="megapassword"\nset EMAIL_TO_STRING="bob@test.com"};
}

my $outfile = q{mybatchfile.bat};
open( OUTPUT, q{>}, $outfile)
...
set PWD="megapassword"
set EMAIL_TO_STRING="bob@test.com"
EOT