use strict;
use Win32::Process;

my $appname = "c:\\winnt\\notepad.exe";
my $cmdline = "notepad";
my $inherit = 0;
my $flags   = 'NORMAL_PRIORITY_CLASS';
my $currdir = '.';
my $timeout = 5000; # milliseconds

my $ProcObj;

Win32::Process::Create($ProcObj,$appname,$cmdline,$inherit,$flags,$currdir) || die &ErrorReport();

$ProcObj->Wait($timeout);

print "Done!\n";
	
sub ErrorReport {
	print Win32::FormatMessage( Win32::GetLastError() );
}