Select Code to Download

my $LumberFile="$Dir/$Subdir/lumber.wrl";
open my $Lumber_fh, '<', $LumberFile  or warn "Ooops Cannot Open Lumbe
+r File: $LumberFile !! \n Proceeding using STDOUT";
...
Now you can pass $out_fh as a parameter to other subs or use
it yourself, e.g.
print $out_fh "something";