DBI connect ORA-28009:(DBD ERROR: OCISessionBegin)

When trying to connect remote oracle database using Perl as SYSDBA got the below error :

my $dbh = DBI->connect( "dbi:Oracle:orcl", "SYS", "sys", {ora_session_mode =>ORA_SYSDBA,RaiseError => 1,AutoCommit => 0 })
 or die "Can't open orcl database: $DBI::errstr";

my $dbh = DBI->connect( "dbi:Oracle:orcl", "SYS", "sys", {RaiseError => 1,AutoCommit => 0 })
 or die "Can't open $db_name database: $DBI::errstr"; 

 Error Msg:

DBI connect('orcl','sys',...) failed: ORA-28009: connection as SYS should be as SYSDBA or SYSOPER (DBD ERROR: OCISessionBegin) 

Solution:

Use the below updated script to connect oracle DB using Perl (SYSDBA role):
  
#!/usr/bin/perl

use strict ;
use DBI;
use Getopt::Long qw(:config no_ignore_case);

#use DBD::Oracle qw(ora_session_modes);

my $dbh = DBI->connect( "dbi:Oracle:orcl", "SYS", "sys", {ora_session_mode =>2,RaiseError => 1,AutoCommit => 0 })
 or die "Can't open $db_name database: $DBI::errstr";

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

  ### Execute the statement in the database
  $sth->execute
      or die "Can't execute SQL statement: $DBI::errstr\n";

  ### Retrieve the returned rows of data
  my @row;
  while ( @row = $sth->fetchrow_array(  ) ) {
      print "Row: @row\n";
  }
  warn "Data fetching terminated early by error: $DBI::errstr\n"
      if $DBI::err;

$dbh->disconnect
      or warn "Error disconnecting: $DBI::errstr\n";

  exit;