use IO::Handle;
open(LOG, "> ./logfile"); 
LOG->autoflush(1);