in reply to How do I capture large output in a perl variable

You've received more intelligent answers, but in the spirit of TIMTOWTDI: 

print "<pre>";  
for (split("\n", qx(cat somefile))) { # or other output producing comm
+and
    s/</&lt;/g;
    print; 
}
print "</pre>";

[download]

--
"This alcoholism thing, I think it's just clever propaganda produced by people who want you to buy more bottled water." -- pedestrianwolf

In Section Seekers of Perl Wisdom