Perl Connect to Database without password as sysdba

 #!/oracle/product/11g/db/perl/bin/perl
 use lib '/oracle/product/11g/db/perl/lib/site_perl/5.10.0';
 use DBI;
 use DBD::Oracle qw(:ora_session_modes);
 print $DBI::VERSION,"\n";
 print $DBD::Oracle::VERSION,"\n";

 $ENV{ORACLE_SID} = "MY";

 my $dbh = DBI->connect( "dbi:Oracle:", "", "",{ ora_session_mode => ORA_SYSDBA } ) || die( $DBI::errstr . "\n" );

 $dbh->{AutoCommit}    = ;

 $dbh->{RaiseError}    = ;

 $dbh->{ora_check_sql} = ;

 $dbh->{RowCacheSize}  = ;

 my $SEL = "SELECT * FROM my.m\$audit_log";
 my $sth = $dbh->prepare($SEL);
 $sth->execute();

 while ( my @row = $sth->fetchrow_array() ) {
     foreach (@row) {
         $_ = "\t" if !defined($_);
         print "$_\t";
     }
     print "\n";
 }

 END {
     $dbh->disconnect if defined($dbh);
 }