added dev-only script to test system probes

diff --git a/dev-gather.pl b/dev-gather.pl
new file mode 100755 (executable)
index 0000000..0469777
--- /dev/null
+++ b/dev-gather.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strictures 1;
+use lib             qw( lib );
+use Data::Dump      qw( pp );
+use Module::Runtime qw( use_module );
+
+my $intro = shift(@ARGV)
+    or die "Probe argument required\n";
+
+pp(use_module("System::Introspector::$intro")->new->gather);