#!/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');

my $dbh = DBI->connect('dbi:mysql:oncall','webuser','password')
	or die "Connection Error: $DBI::errstr\n";
    $dbh->do('INSERT INTO users (name, day, phone) VALUES($name, $day, $number)');

    #Disconnecting from database
    $dbh->disconnect();

  print $q->header,
  $q->h1('you submitted the new user!'),
  $q->end_html;