1. local $SIG{ALRM} = sub { die "alarm\n" };       # NB \n required
   2. alarm 10;
   3. $child_pid = fork();
   4. if( $child_pid )  {
   5.     print "Child_pid = $child_pid\n";
   6.     $pid2 = waitpid( $child_pid, 0 );
   7. }
   8. elsif( $child_pid == 0 )  {
   9.     print "child pid= $$\n";
  10.     exec( "ratlperl count.pl $x" );
  11.     exit( 0 );
  12. }