package MyClass;
sub new {
  my $class = shift;
  my $self = {}; # usw
  bless($self, $class);
  return $self;
}
package main;
my $object = MyClass->new(...);