#!/usr/local/bin/perl

$procid = fork();
if ($procid == 0) {
        # this is the child process
        print ("this line is printed first\n");
        exit(0);
} else {
        # this is the parent process
        waitpid ($procid, 0);
        print ("this line is printed last\n");
}
