#!/usr/bin/perl unixy
use DBI;
my $dbh = DBI->connect('dbi:ODBC:DSN=conexao220', 'CEP', 'a423pa');