package MySAXHandler;
use base 'XML::SAX::Base';
sub characters { print $_[1]->{Data}; }
package main;
use XML::SAX;
XML::SAX::ParserFactory->parser( Handler => MySAXHandler->new )
  ->parse_uri(shift);
[download]