sub new {
    my $class = shift;
    my $self = {};
    bless ($self, $class);    
    $self{'date'} = `date`;
    warn "In TEST->new, created object $self, with date $self{'date'}";
    return $self;
}