Shell Programming and Scripting

#!/usr/bin/perl

print "READ DATA FROM DATABASE\n";

use DBI;
use strict;

my $user='chris';
my $pass='chris';
#my $dsn="dbi:Oracle:orcl";
my $dsn='dbi:Oracle:RWDB';
my $dbh = '';
my $sth='';
my @row= '';
my $answa='';
my $answt='';
my $name="  ";


eval
{

print "connect to database";
my $dbh = DBI->connect($dsn, $user, $pass);
print "connected to database\n";
my $sql = qq{ SELECT * FROM CHRISTOS1 WHERE name=$name '?' };

my $sth = $dbh->prepare( $sql );
$sth->execute(  );
};

if ($@) {
       print "An error occurred ($@), continuing\n";
    }


while(@row = $sth->fetchrow_array()) { ^M
 print "$row[0]: $row[1]\n"; ^M
}


$dbh->disconnect(  );  # Disconnect

Can't call method "fetchrow_array" without a package or object reference at access_database line 48.

my $sql = qq{ SELECT * FROM CHRISTOS1 WHERE name=$name '?' };