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