#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;
use Carp qw(cluck carp croak);
use Data::Dumper;
use IPC::Run qw(run);

local $| = 1;

my @cmd = ("/tempssd/bossert/bin/testchild.pl");

run \@cmd, '<', \undef,'>&',\&stdoutH or die "cat: $?";

sub stdoutH {
    my ($in) = @_;
    chomp $in;
    say 'STDOUT: '.$in;
}