#!/usr/bin/perl sub print_chat { print < My Chat ENDHEADER } return 1;