sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    $self->_initialize(@_);
    return $self;
}
sub _initialize {
    my $self = shift;
    # Do stuff with @_
}