#!perl -l
use IPC::Open3;
$pid = open3(\*WTRFH, \*RDRFH, \*ERRFH, 'perl child.pl');
while (<ERRFH>) {
   print "Received error message <$_>";
}