For something a little closer to python's import Class as Alias set up the import() routine to create an alias e.g

sub import {
  my($pkg, %args) = @_;

  return
    unless exists $args{as} and length $args{as};

  croak "Glob '$args{as}' already exists"
    if defined *{$args{as}};

  *{"$args{as}\::"} = *{"$pkg\::"};
}

## usage

use Very::Long::Class::Name ( as => 'Name' );

my $obj = Name->new;
[download]

Or, you could take the modular approach and use Package::Alias e.g

use Very::Long::Class::Name;
use Package::Alias ( Name => 'Very::Long::Class::Name' );
[download]