$oDB_Comparison->compare(@tables);

##</code><code>##

        $oDB_Comparison->verbose;

##</code><code>##

my $dbh1 = DBI->connect('DBI:DATABASE_TYPE:DATABASE_NAME:DATABASE_SERVER','USERNAME','PASSWORD') || die "Error Connecting to \$dbh1: ".$DBI::errstr."\n";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use DBIx::Compare;

my $dbh1 = #SEE sample connect line above
my $dbh2 = #SEE sample connect line above

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

my @tables = ('Table1', 'Table2);
$oDB_Comparison->verbose;
$oDB_Comparison->compare(@tables);