Select Code to Download

#!/usr/bin/perl
 
...
    }
    exit(0);  #Exit parent
}

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