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