Perl Read Configuration File

#!/usr/bin/perl -w


use strict;
use English;
use Carp;        


package ReadConfFile;


sub new
{
    my $class = shift;
    my $self = {};
    bless ($self, $class);       
                                  
    return $self;                 
}


sub ReadConfFile
{
  my ($self, $confFile ) = @_; 
  open( CONFFILE,"<$confFile" ) || die " File $confFile is not present"; 


  my %keyValues;


  foreach my $line(<CONFFILE>)
  {
    chop($line);
    if ((!($line =~ /^(\s*#)/)) &&  ($line =~ /\w/ ))
    {
      $line =~ s/[ \t]+//;
      my @pair = split ( /=/, $line );
      $keyValues{$pair[0]} = $pair[1];
    }
  }


  close(CONFFILE);


  return %keyValues;
}


1;


__END__
[shengshu@cdling25 verifyPM]$