use constant DBDRIVE => "ODBC";
use constant DBNAME => "informix";
use constant DBUSER => "user";
use constant DBPASS => "pass";
my $dbh = DBI->connect("dbi:".DBDRIVE.":".DBNAME,DBUSER,DBPASS,                   {RaiseError=>0,PrintError=>0,AutoCommit=>1}) or
          die $DBI::errstr;
    $dbh->do("execute procedure sp_test('2010-05-01 00:00:00')") or
             warn "failed\n";
    $dbh->disconnect();