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