if ( fork() == 0 ) {

    # arm the alarm clock
    alarm(10);
    say "alarm set for ten in process $$ and pinging google";
    # create a child process
    my $trial = system("ping www.google.com");
    say "trial is $trial";
    exit(0);
  }