Select Code to Download

my $pre_pass_prompt = q{Do \s you \s want \s to \s send \s anyway};
# save the current prompt
...
  # send the reply
  $obj->cmd(q{y});
}