package a;

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

my $obj = new a ();