#!/usr/bin/perl 
 
use strict;
use DBI;                   # Load the DBI module

# Set environment variable
$ENV{DBI_AUTOPROXY} = 'dbi:Proxy:hostname=ella.slis.indiana.edu;port=3333';

# Details needed by DBI to connect to your database 
# my $username  = shift || die "Usage: $0 username password";                   
# my $password  = shift || die "Usage: $0 username password";
my $DB = "host=inquire.uits.indiana.edu;sid=SLIS;port=1521";
my $username  = "ivis";                   
my $password  = "IVCI1lab2";

# In order to start use any of the DBI functionality, you must create a database 
# connection and store that connection in the database handle object ($dbh). 
my $dbh = DBI->connect("dbi:Oracle:$DB", $username, $password)
           || die "Unable to connect to $DB: $DBI::errstr\n";

# A simple task
print "test passed. \n";

# Simply close the database connection 
$dbh->disconnect();
exit;