my $writer = IO::Handle->new();
my $reader = IO::Handle->new();

eval {
     my $cpid = open3( $writer, $reader, $reader, "rsh $name show hardserial" );
};

print $to_parent "ERROR::$name--refused RCP command\n" if ( $@ =~ /open3/ );

my $return_val = <$reader> ;
chomp $return_val;

#for debugging
print STDOUT "RETURNED:  $return_val\n";

print $to_parent "RESULTS::RCP:$name--RCP Successful\n" if ( $return_val );