Select Code to Download

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

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