#!/usr/bin/perl

use strict;
use warnings;
use DBI;

our $db = DBI->connect('dbi:ODBC:DATABASE', 'USER', 'PASSWORD',
  { RaiseError => 1, AutoCommit => 1 }
);

my $test=$db->prepare("select getdate()") or die($!);
$test->execute();
print $test->fetchrow_array();

my $test2=$db->prepare("select getdate()") or die($!);
$test2->execute();
print $test2->fetchrow_array();