#!/usr/bin/perl -w
my $db = <<'EOF';
sub DB::postponed {
  my $glob = shift;
  $glob =~ s/.*::_<//;
  print STDERR "loading $glob\n";
}
sub DB::DB { }
EOF
($ENV{PERL5DB} = $db) =~ tr/\n/ /;
system($^X, '-d', @ARGV);