Select Code to Download

#! perl -slw
use strict;
...
else {
    print "OpenProcess failed: $^E";
}

do{ 
    my $pid = open my $in, "p:/test/dummy.exe |" 
...
    printf "\r%7d : $pid    ", scalar keys %pid; 
    print " Reused\n\n" if $pid == 65992 ## The first pid
} for 1 .. 1_000_000;

  14281 : 65992     Reused

...


  19112 : 60132    Terminating on signal SIGINT(2)