Select Code to Download

if (expression) {
    die "reason";
...
else {
    ...
    }

lc $first_number eq "q" and die "Goodbye\n";

... rest of code

die "Goodbye\n" if lc $first_number eq "q";