sub Very::Very::Very::Very::Long::Name::hello { 
	my $class = shift;
	print "$class says hello\n"
};

# old school way
Very::Very::Very::Very::Long::Name->hello;

# compile time constant sub works fine - but can be confusing to read
use constant VVVVLN => 'Very::Very::Very::Very::Long::Name';
VVVVLN->hello;

# I tend to just use a variable
my $VVVVLN = 'Very::Very::Very::Very::Long::Name';
$VVVVLN->hello;