My Chat

sub print_chat { print <<" ENDHEADER"; Content-type: text/html My Chat ENDHEADER } return 1;