add bench/oading-benchmark.pl

diff --git a/bench/loading-benchmark.pl b/bench/loading-benchmark.pl
new file mode 100755 (executable)
index 0000000..3719350
--- /dev/null
+++ b/bench/loading-benchmark.pl
@@ -0,0 +1,14 @@
+#!perl -w\r
+use strict;\r
+use Benchmark qw(:all);\r
+\r
+my $module = 'Moose';\r
+\r
+cmpthese timethese 10 => {\r
+       released => sub{\r
+               system($^X, '-e', "require $module") == 0 or die;\r
+       },\r
+       blead => sub{\r
+               system($^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module") == 0 or die;\r
+       },\r
+};\r