use Win32; 
use Win32::Process; 

my $p;  
my $commandline='"Editor.exe" /CAS-FILE=FILENAME';
my $dir = $dir_exe.'\\CDB Editor.exe';
print "Starting CDB Editor.exe ... \n"; 
Win32::Process::Create(     $p,     $dir,     $commandline,     1,     NORMAL_PRIORITY_CLASS,     '.', ) or die Win32::FormatMessage( Win32::GetLastError() ); 
print "Waiting 15 seconds before killing $commandline\n"; 
for (1 .. 15) {    
print; 
print "WAITING...\n" ; 
sleep 1;
} 
$p->Kill(0)     or die "Cannot kill '$p'";