#!/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;

##</code><code>##

Before: $VAR1 = [
          '/usr/bin/cat /etc/motd'
        ];
$VAR1 = 'Sun Microsystems Inc.  SunOS 5.10      Generic January 2005
';
After:  $VAR1 = [
          undef
        ];

##</code><code>##

#!/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;