#!/usr/bin/perl -w
#
# ex1.pl: Written by Alligator Descartes 

use DBI;

#$dbh = $drh->connect( 'testdb', 'testuser', 'testpass', 'Oracle' );
						# Uncomment for ORACLE
#$dbh = $drh->connect( 'hostname', 'dbname', '', 'mSQL' );	# Uncomment for mSQL
die unless $dbh;

$dbh->disconnect;

exit;