#!/usr/bin/perl -w
use CGI qw(standard);
use DBI();
use DBD::mysql;
use warnings;
use strict;
use diagnostics;

my $q = CGI->new;

my $name = $q->param('name');
my $day = $q->param('day');
my $number = $q->param('number');
	
print $q->header;
	$q->start_html( -title => "Add user", -bgcolor => #ffffff);
	$q->p("Data submitted");
	$q->end_html;
	
print $name;
print "\n$day\n";
print $number;