##################################
#
#  Connect to Oracle database.
#
###################################  

my $connection = DBI->connect('dbi:Oracle:xxxx','xxxx','xxxx',) 
|| die "Database connection not made: $DBI::errstr";


############################
#
#   Set up Query for Store
#
############################

my $stmt_1 = "select alignment from rd_n_dm_list"; 

############################
#
#   Prepare Query
#
############################

my $query = $connection->prepare($stmt_1); 


############################
#
#   Execute Query
#
############################

$query->execute() or die $connection->errstr;