package MyClass;

sub method {
   my ($self, ...) = @_;
   ...
}

$obj->method(...);

##</code><code>##

package MyClass;

sub static_method {
   my ($class, ...) = @_;
   ...
}

MyClass->static_method(...);

##</code><code>##

package MyClass;

our $static_attrib;

$MyClass::static_attrib = 1;
print($MyClass::static_attrib, "\n");