sub new { 
    my ($pkg) = $_[0];
    my $this = bless { data => $_[1], }, $pkg;
    return $this;
}