Help for this page

Select Code to Download

Select or download this

sub flush {
    my $fh = shift;
...
    select $old_fh;
    return 1;
}