sub new { my $class = shift; tie my %self, $class; bless \%self, $class; }