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

##</code><code>##

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

... rest of code

##</code><code>##

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