Select Code to Download

#!/usr/bin/perl -w
use strict;
...

$p1->parse('<foo id="me">Hello World!</foo>');
__END__

% perl -v

...
char: Hello World!
end: foo
Debugged program terminated.  Use q to quit or R to restart,