#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use CGI::Carp;
use DBI;
#CGI::use_named_parameters(1);

print "Content-type: text/html\n\n";

my $user= "undef";
my $password="undef";
my $database = "ESTDB";
my $dsn = "DBI:mysql:database=$database";
my $dbh = DBI->connect($dsn, $user, $password);










$dbh->disconnect;