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]