sub debuf{ 
    my $old = select( $_[0] );
    $|++;
    select( $old }
}