sub new
{
        my $pkg = shift;
        my $self = {};
        bless ($self, $pkg);

        return $self;
}