use strict;
use DBI;
use Test::More qw( no_plan ) ;
use Data::Dumper;

my $host = 'example.com';
my $port = '3306';
my $db = 'calls';
my $user = 'username';
my $password = 'password';
my $data_source = "DBI:mysql:database=" . $db . ":host=" . $host . ":port=" . $port;
my $dbh = DBI->connect($data_source,$user,$password,{ PrintError => 0});
if(!$dbh) {
        print "Connection to Database Failed\n";
        exit -1;
}