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