DB<3> sub tst  {print scalar @_ }<P>

  DB<4> tst( my ($a,$b))
2
  DB<5> tst( my ($a,$b,$c))
3
  DB<6> tst( my ($a,$b,$c,$d))
4