package Name::Name;
sub subroutine {
  my $class = shift; # shifting @_
  print $class, "\n";
}

package main;
use Name::Name;
Name::Name->subroutine();

# output:
# Name::Name