#!/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 = $_[0];
      
    my ($mystdin,$mystdout,$mystderr);
    my $pid = open3($mystdin,$mystdout,$mystderr,$command);
   
    my $myresult = "";
    while(<$mystdout>){
        $myresult = "$myresult$_";
    	}
   
    return $myresult;
    }

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