#!/usr/local/bin/perl

$child = fork();
if ($child == 0) {
        print ("This line goes first\n");
        exit (0);
} else {
        $child2 = fork();
        if ($child2 == 0) {
                waitpid ($child, 0);
                print ("This line goes second\n");
                exit (0);
        } else {
                waitpid ($child2, 0);
                print ("This line goes third\n");
        }
}
