#!/usr/bin/perl

open my $fh, "./child.pl |";
close $fh;