sub new {
               my $proto = shift;
               my $class = ref($proto) || $proto;
               my $self  = {};

               my @args = @_;

               bless ($self, $class);
               return $self;
           }