use strict; use warnings; $SIG{CHLD} = sub { print "caught a falling star...\n"; wait(); }; my ($child); if ( $child = fork ) { print "parent of $child, waiting for child...\n"; wait(); } else { exit; }