sub new {
   my $cult = shift;
   my $cargo = ref $cult || $cult; 
   my $self = {}; 
   bless( $self, $cargo);
}