Help for this page

Select Code to Download

Select or download this

use FileHandle;
sub f1 { my $handle=shift; ... }
...
...
f1($fh);
f2($fh);

Select or download this