use strict;
use DBI;
use diagnostics;

my $user = 'foo';
my $pass = 'bar';

my $dbh= DBI->connect( "dbi:Oracle:database",
                       "$user",
                       "$pass",
                     )
        or die "Can't connect to the database: $DBI::errstr\n";

my $sql = '
Select employee_id,
       employee_last_name,
       employee_grade
from employees';

my $sth = $dbh->prepare($sql)
  or die "Can't prepare SQL statement: $DBI::errstr\n";

unless ($sth->execute) {
fatal ("SQL query failed: " . $sth->errstr . "\n$sql");
}

my $ref = $sth->fetchrow_arrayref()
  or die "Can't fetch: $DBI::errstr\n";

$sth->finish;

print "@$ref[0] - @$ref[1] - @$ref[2]\n";

$dbh->disconnect;
[download]