package SomeClass;

sub new
{
    my $class = shift;
    bless {}, $class;
}

...

my $some_object = SomeClass->new();