Help for this page
&mystart($LumberFile,LF); &buildlumber(\%Fs,LF,$Ppi);
my $LF = \do { local *LF; *LF }; &mystart($LumberFile,$LF); &buildlumber(\%Fs,$LF,$Ppi);