use warnings;
		use strict;
		use DBI;
		use DBD::SQLite;
		
		my $Path='C:\Users\DON\Desktop\data.db';
		my $dsn = "DBI:SQLite:" . $Path;
		print "Connecting $dsn ... \n";
		my %attr = (RaiseError => 1, sqlite_unicode => 1, AutoCommit => 1);
		my $dbh = DBI->connect($dsn, "", "", \%attr) || die $DBI::errstr;
		print "done!\n";

##</code><code>##

		use warnings;
		use strict;
		use DBI;
		use DBD::SQLite;
		
		my $Path;
	
		print "Reading configuration file...\n";
		my $FileInput="config.txt";#simple txt file containing this: C:\Users\DON\Desktop\data.db
		open my $FH, "<:encoding(UTF-8)", $FileInput;
		while (my $line = <$FH>) {
			$Path = $line;
		}
		
		my $dsn = "DBI:SQLite:" . $Path;
		print "Connecting $dsn ... \n";
		my %attr = (RaiseError => 1, sqlite_unicode => 1, AutoCommit => 1);
		my $dbh = DBI->connect($dsn, "", "", \%attr) || die $DBI::errstr;
		print "done!\n";