Select Code to Download

use Win32::Process;

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

use Win32::API::Prototype;   # von die infamous Dave Roth

...
$lpCaption = NewString("The Caption");

MessageBox(0,$lpText,$lpCaption,0);