use strict;
use warnings;
use DBI;
require DBD::SQLite;

unlink 'track.db';
my $db = DBI->connect(  'dbi:SQLite:dbname=track.db', '', '',
                        {
                            RaiseError  => 1,
                            AutoCommit  => 1,
                        },
                    );

$db->do(<<EOSQL);

CREATE TABLE tracking
(
    fname   varchar(255),
    fext    varchar(255)
)

EOSQL

my $count_query = $db->prepare(<<EOSQL);

SELECT  COUNT(*)
FROM    tracking
WHERE   fname=?
  AND   fext=?
    
EOSQL

my $insert_query = $db->prepare(<<EOSQL);

INSERT INTO tracking (fname, fext)
VALUES(?,?)
    
EOSQL

open(my $fh, "<", "input.txt") 
    or die "cannot open < input.txt: $!";
while (my $line = <$fh>) {
    chomp $line;
    my ($fname, $fext) = split(' ',$line);
    $count_query->execute($fname, $fext);
    my ($count) = $count_query->fetchrow_array;
    $count_query->finish;
    if (!$count) {
        print "$fname $fext\n";
        $insert_query->execute($fname, $fext);
    }
}
$db->disconnect;