#!/usr/bin/perl -w

use strict;
use DBI;

use Exported qw(:All);

my $db_info = "dbi:mysql:database;host=localhost";
our $dbh = DBI->connect($db_info, 'username', 'password', { PrintError => 0 }) or
    die("Couldn't connect to database\n");

print "info: " , getdb() , "\n";