One thing to add to Chmrr's good suggestions. You may want to use 2-argument bless, and just return its value:

sub new {
   # As in Chmerrs reply
   return bless $self, $class;
}
[download]

After Compline,
Zaxo