#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect( 'Main', 'dbi:mysql:incontact', 'root', '', { RaiseError => 1 } )
    or die $DBI::errstr;

print "Have DBH!\n";

my $sth = $dbh->prepare( 'SELECT 1' );
$sth->execute;
my @x = $sth->fetchrow_array;
print "@x\n";

$dbh->disconnect;

print "Done\n";