open(my $in, '/etc/passwd');

if (!fork()) {
        exec("grep", "root", "/proc/self/fd/" . fileno($in));
}

close($in);