package ABCUtilities;

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;

sub execute {
        my $cmd = shift;

        my $pid = open3(\*WRITER, \*READER, \*ERROR, $cmd);

        my ($err_msg, $out_msg) = ('', '');

        while( my $output = <READER> ) {
                $out_msg .= $output; # . " <br>";
        }

        while( my $errout = <ERROR> ) {
                $err_msg .= $errout; # . "<br>";
        }

        waitpid( $pid, 0 ) or die "$!\n";
        my $exit_code =  $? >> 8;

        return ($exit_code, $err_msg, $out_msg);
}

1;