my $outline = "/path/to/io.otlml"; my $output = IO::File->new("+<$outline"); my $writer = XML::SAX::Writer->new(Output=>$output); my $filter = XML::Filter::OTLML::IO->new(Handler=>$writer); my $parser = XML::SAX::ParserFactory->parser(Handler=>$filter); $parser->parse_uri($outline);