sub new {
        my $self = {};
        [...]
        bless($self);
}