use Win32::Process;

Win32::Process::Create($ProcessObj,
                       "C:\\perl\\bin\\perl.exe",
                       qq[perl -MWin32 -e "Win32::MsgBox('Test')"],
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".")|| die ErrorReport();

Win32::Process::Create($ProcessObj,
                       "C:\\perl\\bin\\perl.exe",
                       "perl messagebox.pl",
                       0,
                       NORMAL_PRIORITY_CLASS,
                       ".")|| die ErrorReport();

for (1..60) {
  print "$_\n";
  sleep(1);
}