$var = "project";
my @ca = ("dbi:Oracle:testdbp",$var,"project7");
    eval {
        my $dbh = DBI->connect(@ca);
        };
    if($@) {
        print "Oracle error: $@\n";
    }

##</code><code>##

$var = $ji->tag('sys_projectname');

##</code><code>##

Oracle error: Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at /opt/perl.20020530/lib/site_perl/5.6.1/PA-RISC/DBD/Oracle.pm line 208.