my $fh = select(STDERR);
$|++;
select($fh);