Select Code to Download

        ...
        print "doing waitpid($pid,0)...\n";   # <---
        waitpid($pid,0);

17001 pts/16   S+     0:00          \_ /usr/bin/perl ./810377.pl
17002 pts/16   S+     0:00              \_ /usr/bin/perl ./810377.pl
...
17018 pts/16   S+     0:00                                      \_ /us
+r/bin/perl ./810377.pl
17021 pts/16   S+     0:00                                          \_
+ /usr/bin/perl ./810377.pl
17054 pts/16   R+     0:03                                            
+  \_ /usr/bin/perl ./810377.pl

        if ( $pid == 0 ) {
            if ( ! -e $lck ) {
...
            $SIG{INT} = 'DEFAULT';
            exit;   # <---
        }