package myModule;

sub new {
	my $this = {};
	bless $this;
	return 1;
}

sub start_table {
	my $color = shift;
	my $width = shift;
	my $height = shift;
	print "<table border=0 cellspacing=0 cellpadding=0 width='$width'";
	if ($height) {
		print " height='$height'";
	} if ($color ne 'i') {
		print " color='$color'";
	}
	print "><tr><td>\n";
}
1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use myModule;
my $sm = myModule->new;
$sm->start_table('#000000',250);