#!perl -w
use strict;
use DBI;
my $dbh = DBI->connect( 'dbi:Oracle:mydb', 'scott', 'tiger', { RaiseError => 1, AutoCommit => 0 } );
print $dbh->selectrow_array(qq{ SELECT 'Hello World' FROM DUAL }),"\n";
print $dbh->selectrow_array(qq{select name,database_role from v\$database}),"\n";
$dbh->disconnect(  );