# DBI Initializations
my $driver = 'Oracle';
my $hostname = 'host=oradev;sid=oradev;port=1521';
my $user = 'user';
my $password = 'password';
my $dsn = "DBI:$driver:$hostname";

my $dbh = DBI->connect($dsn,$user,$password) or croak "Error $DBI::errstr connecting to $dsn\n";