use XML::LibXML::Reader qw( );

my $reader = XML::LibXML::Reader->new(
   location        => $file_or_url,
   load_ext_dtd    => 0,
   expand_entities => 0,
);

1 while $reader->read;