sub fibonacci($n) {
    die '$n failed check "$n >= 0 && int($n) == $n"' unless $n >= 0 && int($n) == $n;
    ...
}