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";