sub new {
  my $class = shift; $class = ref $class || $class;
  # other stuff
  bless $self,$class;
}