#!perl
use strict;
use DBI;

# create table
my $dbh = create_db('database.sqlite');

# load data
my @files = qw(fileA.txt fileB.txt);  
for my $file (@files){
  load_db($dbh,$file);
}

# report
my $query = 'SELECT A,B,C,D,AVG(E),SUM(F),
             MIN(E),MAX(E),COUNT(*),SUM(E*F)/SUM(F)
             FROM test
             GROUP BY A,B,C,D
             ORDER BY A,B,C,D';
report($dbh,$query);