my $pid=system(1,"my_prog.bat");
...
    if(kill(9,$pid)) {
      print "Killing $pid was not successful\n" if kill(0,$pid);
    } else {
      print "Signal did not reach process $pid\n";
    }