#!/usr/local/perl510/bin/perl
use strict;
use warnings;
use Data::Dumper;
use IPC::Open3;

my @plist = ( '/usr/bin/cat /etc/motd' );

sub ccmexec_nodie {
    my( $command )= @_;
      
    my ($mystdin,$mystdout,$mystderr);
    my $pid = open3($mystdin,$mystdout,$mystderr,$command);
   
    my $myresult = "";
    while(my $in=<$mystdout>){
        $myresult .= $in;
    	}
   
    return $myresult;
    }

print 'Before: ', Dumper \@plist;
foreach my $cmd ( @plist ) {
	print Dumper ccmexec_nodie $cmd;
	}
print 'After:  ', Dumper \@plist;