use Carp;
...
sub mysub {
    croak "Too many arguments for mysub" if @_ > $limit;
    ...
}
[download]