#!/usr/bin/env perl 
use strict;
use warnings;
use autodie;

$| = 1;
open my $in, '<', '/etc/passwd';

unless (fork) {
    print "CHILD: $_", for grep { /root/ } <$in>;
    print "CHILD: we're done here\n";
    exit;
} else {
    print "PARENT: still going\n";
    wait;
}

close $in;