#!/usr/bin/perl -w
use warnings;
use strict;
use Conf;

my $object = Conf->new();
my $d_set = $object->FetchDataset('1','1','dataset');
my $value = $object->GetValue('log_file');
print "Coresponding value is : $value\n";