sub fib { my($nth = shift) =~ m{^\d+$} and ! @_ or die $fib_die_msg; ... }