#!/usr/bin/perl -wT
# example_11-1

use strict;
use DBI;

my @drivers = DBI->available_drivers();

print "The drivers loaded on this server are:\n\n";
print join("\n", @drivers);
print "\n";