Select Code to Download

package Test;

...
}

1;

package Test::Command;

...
}

1;

#!/usr/bin/perl

...
$|=1;

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

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

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

Test::Command::$command

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