#!/usr/bin/perl unixy
use DBI;
my $dbh = DBI->connect('dbi:ODBC:host=172.16.90.220;sid=WEBDB;port=1521','CEP','a423pa');