my $Dir="C:\\users\\Administrator";
$object_handler_host->clear_accum();
$object_handler_host->send("cd $Dir\r");
$object_handler_host->expect($trn_timeout,
    [ qr/No such file or directory/i,  => sub { print("ERROR::Failed to change directory $Dir....\n" );} ],
    [ ">"   => sub { print("INFO: Changed to dir $Dir\n");}],
    [ "timeout" => sub { print("\nTimeout while changing the directory. Exiting\n");}]);