sub new
{
    my $class = shift;
    return bless({},$class);
}