#!/usr/bin/perl

use strict;
use DBI;

my @drivers = DBI->available_drivers();

die "No drivers found!\n" unless @drivers;

foreach my $driver ( @drivers ) {
  print "Driver: $driver\n";
}