#!/usr/local/bin/perl
use strict;
use DBI;
use DBD::Oracle;