use IPC::Run3 0.047 'run3'; my $cmd = ['cat','-nE']; my $stdin = "Hello,\nWorld!\n"; run3 $cmd, \$stdin, \my $stdout, \my $stderr or die "run3 failed"; die "run3 failed, \$?=$?" unless $?==0; print "# STDOUT:\n$stdout"; print "# STDERR:\n$stderr";