sub hey {
  &waka(((caller(0))[3]=~m/::(\w+)$/));
}
sub waka {
  my $who = shift;
  print "$who called waka\n";
}