open(LOG, "> ./logfile") or die "$!";
open(DATA "> ./data")   or die "$!";
select LOG;
$|++;
select DATA;
$|++;
select STDOUT;

##</code><code>##

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