sub class_method {
   my ($class) = @_;
   print "$class\n";
}

sub object_method {
   my ($self) = @_;
   my $class = ref($self);
   print "$class\n";
}

Class->class_method();
$obj->object_method();