sub foo {
  my ($bar,$baz,$quux) = @_;
  croak "bad bar" unless $bar > 0 && ! $bar % 2;
  # now test $baz
  # now test $quux
  # do our stuff
}