my $object = bless($reference, "MyClass");

##</code><code>##

    sub bless {
      my ($reference, $class) = @_;
      $reference->{class_name} = $class;
      return $reference;
    }

##</code><code>##

    $object->some_function($arg1);

##</code><code>##

    $object->{class_name}::some_function($object, $arg1);

##</code><code>##

    MyClass::some_function($object, $arg1);