# This is the example script in doc/UsingPerlSAX.pod
use XML::Parser::PerlSAX;
use MyHandler;
my $my_handler = MyHandler->new;
my $parser = XML::Parser::PerlSAX->new( Handler => $my_handler );
foreach my $instance (@ARGV) {
$parser->parse(Source => { SystemId => $instance });
}