Select Code to Download

sub egg { # prints a 3d egg.
 my %args=(myprint => \&printout, xaxis => 10, ...);
...
 $myprint=$args{myprint};
 &{$myprint}(\@lines);
}

my $Fh; # w/b set in mystart.
&mystart($LumberFile,LF);
...
    print $Fh "$line\n";
  }
}