my $response = "NB_CLT_7.6.0.2\r";
        my $exp = Expect->spawn("./NB_update.install -s");
        $exp->expect($timeout,
        [ qr/Enter pack name \(or q\) \[q\]:\s+/ => sub {
                $exp->send($response);
                $response = "q\r";
                exp_continue;
                }
        ],