use warnings;
use strict;
use DBI;
use DBD::SQLite;

#Working part with hard coded path	
my $dbfile1="C:/users/DON/Desktop/data.db";
print "\nFIRST Connection to dbfile path read from script ($dbfile1) ... ";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile1","","") || die $DBI::errstr;
print "done!\n\n";
	
#NOT working part with path from file	
my $dbfile2;
print "Reading dbfile path from configuration file... ";
my $FileInput="config.txt";#simple txt file containing this: C:/users/DON/Desktop/data.db
open my $FH, "<:encoding(UTF-8)", $FileInput || die (print "can't open file $dbfile2");
while (my $line = <$FH>) {
	$dbfile2 = $line;
	chomp $dbfile2;
}
print "$dbfile2\n";

print "SECOND Connection with dbfile read from file $dbfile2 ... ";
$dbh = DBI->connect("dbi:SQLite:dbname=$dbfile2","","")|| die $DBI::errstr;
print "done!\n";