Select Code to Download

while (1) {
    # Loop other processing here.
...
        $kid = waitpid(-1, 1);
    }
}

perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
...
    uname='sunos lonxpr1732 5.6 generic_105181-10 sun4m sparc sunw,spa
+rcstation-5 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef