#!/bin/perl
close(STDIN);  # Child close read side of pipe
print STDOUT "child here";  # Write to pipe
