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