#!/usr/bin/perl

use DBI;
use strict;
use CGI::Carp;

my @array = DBI->available_drivers;
my $source;

foreach $source (@array)
{
  print "$source" . "\n";
}

1;