#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use IPC::Open2;

my $pid = open2(my $child_out, my $child_in, 'date');
my $from_child = <$child_out>;
print 'From child: ', $from_child;
waitpid $pid, 0;
print 'Child exit status: ', $? >> 8, "\n";

##</code><code>##

From child: Sat 29 Mar 2014 03:49:33 EST
Child exit status: 0