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