my $pkg = "Test::Command::$command";
( my $mod = $pkg ) =~ s{::}{/}g;
$mod .= '.pm';
my $exists = eval { require $mod };

##</code><code>##

...
$pkg->handle_output();

##</code><code>##

sub new {
    my $class   = shift;
    my $command = shift;

    my $self = $class->SUPER::new();

    print "DEBUG : handling command $command in " . __PACKAGE__ . "\n"
        if ( $command );
}