Select Code to Download

#!/usr/local/bin/perl  -w

...
    print "Child thread ($$) - not dead yet...\n";
  } until 1 == 0;
}

bio-man@saturn [dbupdate] ./ugly_forker
Parent thread (17387) - not dead yet...
...
uurk
Killed
bio-man@saturn [dbupdate]

#!/usr/local/bin/perl  -w
use strict;
...
  } until $i == 3;
  die;
}

bio-man@saturn [dbupdate] ./ugly_forker
Parent thread (19689) - not dead yet...
...
Parent thread (19689) - not dead yet...
^C
bio-man@saturn [dbupdate]