#!/bin/perl
# File: pipe_child

close(STDIN);             # Child close read side of pipe.
print "child here\n";     # Write to pipe.
print "second line.\n";   # Use newlines to satisfy reads in parent.
print "We gone, bye\n";
close(STDOUT);            # Send EOF to reader (parent).
exit(0);
