#!/usr/bin/env perl

use strict;
use warnings;
use Config::Tiny;
use feature qw(say);

my $config = Config::Tiny->read(q(eatalian.cfg));

my $var = $config->{_}->{VAR};
my $amb = $config->{_}->{AMB};
my $dirske = qq($var$amb);

say $dirske;

my $script = qq($dirske/script.sh);

say $script;

__END__