#!/usr/bin/perl
use warnings;
use strict;
use VRML;

my $Dir        = "vrmlstuff";
my $Subdir     = "DrillPressTable";
my $LumberFile = "$Dir/$Subdir/lumber.wrl";

mystart($LumberFile);

sub mystart {
	my ($file) = @_;
	open my $fh, '>', $file
		or die "ERROR: Unable to open $file for output";
	my @lines = split /\n/, <<END;
#VRML V2.0 utf8
NavigationInfo { headlight TRUE }
DirectionalLight { # First child
 direction 0 0 -1 # Light illuminating the scene
}
END
	my $i = 0;
	if ( $i == 0 ) {
		for my $line (@lines) {
			print $fh "$line\n";
		}
	}
	elsif ( $i == 1 ) {
		myprint( \@lines, $fh );
	}
	elsif ( $i == 2 ) {
		printout( \@lines, $fh );
	}
}

sub myprint {
	my ($lines, $fh) = @_;
	for my $line ( @{$lines} ) {
		print $fh "$line\n";
	}
}