#!perl

my $dos_commands = <<TXT;
X:
cd /tmp
notepad blah.txt
TXT

$dos_commands = join '&&', split/\n/, $dos_commands;

warn "Executing: cmd.exe /K $dos_commands";

system ("cmd.exe /K $dos_commands");