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