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]$