#!/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);
