#!/usr/bin/perl 

use warnings;
use DBI;
use CGI':standard';

my $item;
my $name = param('name');
my $pw = param('passwd');
my $host = "clarke";
my @databases = DBI->data_sources('mysql',
  {"host"=>$host,
   "user"=>$name,
   "password"=>$pw}
  );
print header, start_html("MySQL Interface");
if (not @databases) {
  print "no luck";
}
else {
foreach (@databases){
  print "$_\n";
}
}

print end_html;