foreach my $used (keys %main::) {
  no strict;
  if (defined &$used) {
    my $old_sub = \&$used;
    *$used = sub {
      print "Calling $used\n";
      &$old_sub;
    };
  }
}