Select Code to Download

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

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

...
Foo->check();
__END__
I am: Foo::Command