#!/usr/bin/perl
use strict;
use warnings;

use File::Basename;
my $dirname = dirname(__FILE__);
use Config::Tiny;
my $Config = Config::Tiny->new;
$Config = Config::Tiny->read( "$dirname/file.conf" );
print "$Config->{_}{var1}\n";