Simple Ball Class - Constructor

• package My::Ball;

• sub new {

• my $proto=shift;

• my $class=ref($proto) || $proto;

• my $self={};

• bless $self,$class;

• print “I blessed $self into $class\n”;

• return $self;

• }