#! /usr/bin/perl
use CGI;
use DBI;
print "DBI appears to be OK\n";
@driver_names = DBI->available_drivers ();
print "These DBI drivers are available: @driver_names\n";
exit (0);