#!/usr/bin/perl
 
$pid = fork();    #Declare fork
if ($pid == 0) {  #Jump into the Child process
    for ($j = 0; $j < 10; $j++) {
        print "child: $j\n";
        sleep 1;
    }
    exit(0);  #Exit the fork [child process]
} elsif ($pid > 0) {
    for ($i = 0; $i < 10; $i++) {
        print "parent: $i\n";
        sleep 1;
    }
    exit(0);  #Exit parent
}

##</code><code>##

$pm->finish if ($pid == 0 && $content =~ m/string/);
#...no match, do more work...
$pm->finish;