open(STDOUT, ">my_file") ;
select STDOUT; $| = 1;