#!/usr/bin/perl -w
#intro2.pl - verify availability of CGI.pm and DBI modules

use CGI;
use DBI;
$cgi = new CGI;
print STDOUT ("The CGI object was created successfully\n");

@driver_names = DBI -> available_drivers ();
print STDOUT ("These DBI drivers are available: @driver_names\n");
undef $cgi;
exit (0);