#!/usr/bin/perl use strict; use warnings; use Data::Dump 'pp'; use A; my $cnf = A->init('parameters.conf'); pp $cnf; print $cnf->get_value('abc','xyz'); print "\n"; print $cnf->get_value('blue','pqr');