#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;
use CGI::Carp('fatalsToBrowser');

my $query = new CGI;
print $query->header();
if ($query->param('submit1')){
	my $family = $query->param('family');
	my $TB = $query->param('TB');
	my $LM = $query->param('LM');
	my $HS = $query->param('HS');
	my $SC = $query->param('SC');
	my $AT = $query->param('AT'); 
	print "TB: $TB<br>";
	print "LM: $LM<br>";
	print "HS: $HS<br>";
	print "SC: $SC<br>";
	print "AT: $AT<br>";
}

__END__