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();