in reply to Can I clean this up??
Uh, this is bass-ackwards -- you print to the file before you open it. That isn't going to work at all.print FIL "\n$ct is down at this time.\n"; open(FIL,">>$myfil") || die "No open for ct tot: $! \n";
In Section
Seekers of Perl Wisdom