Or to be even cleaner (and faster):

open(FILE, 'htmlcal.txt') or die $!,"\n";
print "Content-type: text/html\n\n";
print "What the f***?";
for(<FILE>) {
  print;
}
close(FILE);
[download]

--isotope
http://www.skylab.org/~isotope/