my $oldfh = select(FH);
    $| = 1;
    select($oldfh);