Check out perl design patterns.

package MyClass;

our $total_objects;
our $public_static_class_data;
my $private_static_class_data;

# For example:
sub new {
   # ...
   $total_objects++;
   # ...
}
[download]

In Perl 6, the above would work if you replace package with class (though in general you don't write a new method yourself in Perl 6).

There are two kinds of members: methods and attributes.

Methods

There is no difference between a static method and one that isn't in Perl, except how its called.

package MyClass;

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

$obj->method(...);
[download]

package MyClass;

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

MyClass->static_method(...);
[download]

Attributes

Static attributes are just package variables.

package MyClass;

our $static_attrib;

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