Also notice that the customary (required?) syntax is: Test1->new().
The Perl implementation of objects is not quite what you might expect when coming from other languages. But it is deceptively powerful, perhaps in part because it does not force you to do things in a certain way or make too many assumptions.