use strict;
use warnings;

use Win32::Process qw( INFINITE );

{
   Win32::Process::Create(
      my $ProcessObj,
      "$ENV{SystemRoot}\\System32\\notepad.exe",
      "notepad",
      0,
      0,
      "."
   )
      or die Win32ProcessError();

   print("Waiting...\n");
   $ProcessObj->Wait(INFINITE);
   print("Done.\n");
}