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 ""; }