#!/usr/bin/perl
use strict;
use warnings;
use DBD::SQLite;
use DBI ;
use DBIx::Compare;
use DBIx::Compare::SQLite;

my $db1="xyz1.dat";
my $dbh1=DBI->connect("DBI:SQLite:[dbname]=$db1","","");
my $db2="xyz2.dat";
my $dbh2=DBI->connect("DBI:SQLite:[dbname]=$db2","","");

my $oDB_Comparison=db_comparison->new($dbh1,$dbh2);

$oDB_Comparison->compare;
$oDB_Comparison->deep_compare;