Help for this page
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";