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

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

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