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