mystart($LumberFile);
sub mystart {
    my ($file) = @_;
    open( my $fh, "> $file" ) or die ...