package MyConfigReader; sub readConfig { my ($file,$var) = @_; open FILE, "< $file" or die "can't read $file: $!"; while () { chomp; my ($k,$v) = split /=/, $_, 2; return $v if $k eq $var; } close FILE; return; }