Help for this page

Select Code to Download

Select or download this

sub flush {
   my $osh = select($_[0]);
...
   select($osh);
   return 1;
}