--- /dev/null	Thu Jan  1 07:30:00 1970
+++ test/Makefile.PL	Mon Apr  8 12:15:02 2002
@@ -0,0 +1,10 @@
+use 5.006;
+use strict;
+use warnings FATAL => 'all';
+
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME         => 'My::Test',
+    VERSION => '0.1',
+);
--- /dev/null	Thu Jan  1 07:30:00 1970
+++ test/subdir/Makefile.PL	Mon Apr  8 12:25:50 2002
@@ -0,0 +1,19 @@
+use strict;
+use warnings FATAL => 'all';
+
+use ExtUtils::MakeMaker;
+
+sub test {}
+
+print "everything is quiet on the western front\n";
+
+{
+    no strict 'refs';
+     *{"test"} = sub {}; 
+}
+print "not so quiet\n";
+
+WriteMakefile(
+    NAME         => 'My::Subdir::Test',
+    VERSION => '0.1',
+);