use Win32::Process;
use Win32;
use strict;
use warnings;

my $warten = 10;        # Wartedauer

sub ErrorMessage{
        return Win32::FormatMessage( Win32::GetLastError() ); # letzter Win32-Fehler
}

my $ProcessObj;
my $Arbeitsverzeichnis = ".";

Win32::Process::Create(
        $ProcessObj,
        "C:\\Windows\\notepad.exe",     # zu startendes Programm
        "notepad",                                      # Kommandozeile
        0,
        NORMAL_PRIORITY_CLASS,
        $Arbeitsverzeichnis
) || die ErrorMessage();
        
sleep($warten); # warte ein bisschen

$ProcessObj->Kill(0) || die ErrorMessage();