sub foo {
    unless (@_ <= 4) {
        die "foo allows at most 4 arguments";
    }
    ...
}