Hello Monks. I am making a connection to a remote NE with Control::CLI. When I connect manually to the machine I eventually get to:

running OS installation script
/bin/installgolddisk: version 2013-10-22.01

Enter local time as MMDDhhmmYYYY
[download]

I provide the required time stamp and all is good. When I connect through script, I see this:

�©[34;47m/bin/installgolddisk: version 7-2015-12-14.01�©[0m

�©[34;47mEnter local time as MMDDhhmmYYYY�©[0m
[download]

The garbage characters are messing up my script. Relevant code:

sub ConnectTo {
    my $ip = $_[0];
    my $user = $_[1];
    my $pass = $_[2];

    my $obj = new Control::CLI ( Use => 'SSH',
                                 Timeout => 10800,
                                 Input_log => "$logprefix.input.log",
                                 Output_log => "$logprefix.output.log"
+,
                                 Dump_log => "$logprefix.dump.log",
                                 Prompt =>  '.*[^boot:][m\?\$%#>:\r\n\
+012]\s?$',
                               );
    my $ok = $obj->connect( Host => $ip, Username => $user, Password =
+> $pass, );
    my $ok = $obj->login( Password => $pass,);
    return $obj;
}

$MRV_obj = &ConnectTo($MRVIP, $MRVUser, $MRVPass);

$MRV_output = $MRV_obj->cmd("poweron server 1 usb\n\n");

my $Blade1Conn = $MRV_obj->cmd("connect server serial 1\n");

my $installprompttime = strftime ('%m%d%H%M%Y', gmtime);
$MRV_output = $MRV_obj->cmd("$installprompttime");
[download]

So I'm guessing my prompt string isn't picking up the prompt with the garbage characters coming through. Any thoughts on removing the garbage, or altering my prompt to pick it up?

Thanks in advance!