my $oldfh = select STDERR;
    local $| = 1;
    select $oldfh;