BEGIN {
  require Filter::Include;
  my $old_source = *Filter::Include::source{CODE};
  *Filter::Include::source = sub {
    print "Including $_[0]\n";
    goto &$old_source;
  };
  Filter::Include->import;
}