sub new
{
    my $self = [{},""];
    bless($self);
    return $self;
}