This should work

sub ccmexec_nodie
{
    my $command = shift;
    
    myprint(2,"\t\t\tccmexec: $command\n");
    
    my ($mystdin,$mystdout,$mystderr);
    my $pid = open3($mystdin,$mystdout,$mystderr,$command);
    
    my $myresult = "";
    while(<$mystdout>){
        $myresult = "$myresult$_";
    }
    
    return $myresult;
}


sub myprint{
    my ($level, $string) = @_;
    
    if($level <= 1){
        print $string;
    }        
}
[download]