use IO::Handle;
open (REPORT, ">$myfile) || die $!;
REPORT->autoflush(1);