#!/usr/bin/perl -w

use POSIX qw(:signal_h :errno_h :sys_wait_h);


$command = $ARGV[0];

parse();

if (!defined ($pid = fork()))
{
    die "cannot fork: $!";
}
elsif ($pid == 0)
{
    exec("$command");
}
else
{
    waitpid($pid, 0);

    if (WIFEXITED($?)) 
    {
        print "Exited\n";
    } 
    elsif (WIFSIGNALED($?)) 
    {
        $sig = WTERMSIG($?);
        if ($sig == 11)
        {
            print "Segfault\n";
            exit 11;
        }
        print "Signaled $sig\n";
    }
    else
    {
        print "EH\n";

    }
}
close STDOUT;
exit 0;


sub parse
{
    my $pid;
    return if $pid = open(STDOUT, "|- ");
    die "cannot fork: $!" unless defined $pid;
    
    while (my $line = <STDIN>)
    {
        print "$line";
    } 
    exit;

}
[download]

Apart from using IO::Capture is there another way that will simply add to the above code, or is this just wishful thinking?

Thank you very much to everyone who have replied to my question.

First, see if IPC::Open3 can do what you want. You would use it instead of fork and exec.

If it doesn't, you'll want to create filehandles for your child process with pipe, then assign them to STDIN, STDOUT, and STDERR after the fork, using POSIX::dup2 or similar.

Thank you for the reply :)