use SGMLS;
$\ = "\n";
$parse = new SGMLS(STDIN);
while ($event = $parse->next_event) {
print "Event type: " . $event->type;
print "Data: " . $event->data;
print "File: " . $event->file || "[unavailable]";
print "Line: " . $event->line || "[unavailable]";
print "";
}