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