use strict;
use DBI;
my $dbh = DBI->connect('DBI:database_type:database_name','user','password') || die DBI->errstr;
my $sth = $dbh->prepare("SELECT * FROM table_name WHERE 0=1") || die $dbh->errstr;
$sth->execute() || die $sth->errstr;
my @column_names = @{$sth->{NAME}};
$sth->finish();
$dbh->disconnect();