% /bin/foo foo_a foo_b foo_c

##</code><code>##

% /bin/foo foo_?

##</code><code>##

sub foo
{
      croak "foo() only takes one argument" if (@_ > 1);
      print "$_[0]\n";
}