#!/usr/bin/perl sub print_entry { open(TIMEFILE,"){ push(@time, $_); } close(TIMEFILE); open(FROMFILE,"D-Spot Chat Line

Chat Lounge $try

ENDHEADER while () { print; } close(FROMFILE); } return 1;