Select Code to Download

#!/usr/bin/perl

...
my $parser = XML::SAX::ParserFactory->parser(
    "Handler" => Handler->new() );
$parser->parse_file($file);