If you want to use the current package as the base name of some other package, you could do something like this:

my $subpackage = __PACKAGE__ . '::Command';
my $test_command = $subpackage->new(@ARGV);
[download]

You could also make a module that installs this behavior into every package. Here's a demonstration:

sub UNIVERSAL::subpackage { join '::', @_ }

package Foo::Command;

sub wow { print "I am: ", __PACKAGE__, "\n" }

package Foo;

sub check { __PACKAGE__->subpackage( 'Command' )->wow() }

package main;

Foo->check();
__END__
I am: Foo::Command
[download]

In Real Code, you'd put the sub UNIVERSAL::subpackage part into another module which you then use from every package that you want to have that behavior. While "__PACKAGE__->method( 'Blah' )" is a lot longer than just "Blah", it also carries a bit more meaning.

Is that closer to what you want?