sub mysub { my $cat = shift || 1; # etc }