Help for this page

Select Code to Download

Select or download this

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