# at the top of your script:
my $state = 0;
# ...
    [ qr/Enter pack name \(or q\) \[q\]:\s+/ => sub {
        if ($state==0) {
            $exp->send("NB_CLT_7.6.0.2\r");
        }
        else {
            $exp->send("q\r");
        }
        $state++;
        exp_continue;
        }
    ],