package Test;

sub new {

	my $class   = shift;
	my $item    = {};
	print "DEBUG : creating object in " . __PACKAGE__ . "\n";
	bless $item , $class;
	return $item;
}

1;

##</code><code>##

package Test::Command;

use strict;
use warnings;

use Test;
use vars qw(@ISA);
@ISA = qw(Test);

sub new {

	my $item    = shift;
	my $command = shift;
	my $class   = ref( $item ) || $item;
	my $self    = bless $item->SUPER::new(), $class;

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

}

1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use Test;
use Test::Command;

$|=1;

my $test_command = Test::Command->new(@ARGV);

##</code><code>##

DEBUG : creating object in Test
DEBUG : handling command test_command in Test::Command

##</code><code>##

my $test_command = Command->new(@ARGV);

##</code><code>##

Test::Command::$command

##</code><code>##

Test::Command::$command->handle_output()