Perl Verify PMCoreBasedAD

#!/usr/bin/perl -w use strict; use English; use Carp;                 use Getopt::Long;        use ReadConfFile; use PerformDBOperations; my ($confFile,$boolHelp) = (); my $boolError = GetOptions("c=s" => \$confFile,                           "h|help!" => \$boolHelp); if ($boolHelp || $confFile eq "") {   Help();   exit(0); } eval  {   # my $readConf = new ReadConfFile();   my $readConf = ReadConfFile->new();   my %confValues = $readConf->ReadConfFile($confFile);   undef $readConf;   while(my ($key,$value) = each %confValues)   {     print "$key => $value\n";   } }; if ($EVAL_ERROR) {   print "Fail to read $confFile!\n"; } eval {   my $dbUser = "pmr";   chomp(my $pmrPwd = `polpasmx -$dbUser`);   my $pmrDbPtr = new PerformDBOperations();   $pmrDbPtr->ConnectTo($dbUser,$pmrPwd);   my $sql = "select co_gid,co_int_id,co_name,co_dn from utp_common_objects where co_dn like '%BRS%'";   my $sth = $pmrDbPtr->DoSQLStatement($sql);   print "\n-------------------------------------------------------------------------";   print "\n|CO_GID\t\t\t|CO_INT_ID\t|CO_NAME\t|CO_DN\t\t|";   print "\n-------------------------------------------------------------------------\n";   while(my @arrRow = $sth->fetchrow())   {     foreach(0..$#arrRow)     {        print "|".$arrRow[$_]."\t";     }     print "|\n-------------------------------------------------------------------------\n";   } }; sub Help         {          print " Usage: perl VerifyPMCoreBasedAD.pl -c <ConfigFileName with full path> -m <test mode> -label <label to be used in result file names>\n";   print "\n Example: perl VerifyPMCoreBasedAD.pl -c /home/omc/test.cf -m 1 -label testrun \n"; }