my $old_fh = select(STDOUT);
$| = 1;
select($old_fh);