Select Code to Download

use strict;
use warnings;
...
    print "$i: done (rc=$rc).\n";
    $rc < 0 and print "$i: ($!)\n";
}

1: run C:\Strawberry\perl\bin\perl.exe -le "print 'pid=', $$" --------
+-
pid=4600
...
70: run C:\Strawberry\perl\bin\perl.exe -le "print 'pid=', $$" -------
+--
70: done (rc=-1).
70: (Resource temporarily unavailable)