Re^3: Kill a perl script execution in windows

[nikosv]

you don't need the PID. The first script waits for a signal to terminate as:

use Win32::Event;
use 5.010;

$event = Win32::Event->new(1,0,"myevent");
        
while  ($event->wait(0)==0) {
  say $i;
  print $i++;
}

say "exiting";

or just $event->wait(), depends on the situation.Then the second one can signal it to abort :

use Win32::Event;
use 5.010;

$event = Win32::Event->new(1,0,"myevent");
say $^E;
$event->set;