1.24 Devel::T5

package Devel::T5;

package DB;

my @subs = qw(factorial);

sub DB {
}

sub sub  {
  $i++;
  if (grep {$sub =~ /$_$/}  @subs) {
     print $i, " $sub(", join(",", @_), ")\n";
  }
  &$sub;
}


1;