#! /usr/bin/perl -w

use strict;

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
#use DBI;
use CGI qw(start_html end_html h1 p);
#use Cwd;

#print "\n\nthe DBD-DBM tester\n\n";

#my $cwd = getcwd();

#my $dbh = DBI->connect('DBI:DBM:');

#$dbh->{RaiseError} = 1;
#$dbh->{f_dir} = '/tmp/dbtestdir';

#$dbh->do('CREATE TABLE user ( user_name TEXT, phone TEXT)');

#$dbh->disconnect;



print start_html,
      h1('testing dbd'),
      #p('cwd is ',$cwd ),
      end_html;