#!/usr/bin/perl
package VRML;
use warnings;
use strict;
use Exporter 'import';
our @EXPORT = qw/printout/;

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

1;