use XML::SAX::Machines qw( Pipeline );
Pipeline(
"<$ARGV[0]",
## Put some filter here :)
"| xmllint --format -"
)->parse;
use XML::SAX::Machines qw( Pipeline );
Pipeline(
"<$ARGV[0]",
## Put some filter here :)
"| xmllint --format -"
)->parse;