sub new{
    my $class = shift; # changed to take class off @_
    my $self = $class->SUPER::new('1.0','UTF8');
#   my $root; #unused
    my @listeners = @_; # assuming that's what you want
    $self->{'Listeners'} = [@listeners]; # hash value must be scalar
    bless($self, $class);
}