my $oldfd = select TKFD;
$| = 1;
select $oldfd;