#!/usr/bin/perl -w
use strict;
use File::Basename;
use CGI;
use CGI::Carp;
use Config::Tiny;

chdir dirname($0);
my $config = Config::Tiny->read('Config.ini');
croak "Cant read Config.ini" unless $config;
.....