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