sub new { # any constructor
    my $class = shift;
    my $self  = {}; # or some initializing routine
    bless $self, $class;
} # new