Select Code to Download

my $op;
do { ... } until ($op =~/Q/i);

if ($op =~/Q/i) {
print "Just hit enter to shuffle though all prompts\n";
    }

last if $op =~ /Q/i;