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);