Select Code to Download

 eval $cmd

"Perl Command Line Interpreter has encountered a problem and needs to 
+close"

foreach (@commands) {
   $cmd = $_;
...
      eval $cmd;
   }
}

sub Do {
    my ($self, $cmd, $time_out) = @_;
...
    $retVal = $self->Pass_Conf_Ind(@lines, $cmd);   
    return wantarray ? ($retVal, $result) : $retVal;
}