#!/usr/bin/perl
use strict;
use warnings;
use v5.26;

use Carp;
use File::Find;
use DBI;
use lib 'sign.pl'; 

my $db =
     DBI->connect( "DBI:SQLite:dbname=../data.db", "", "", { RaiseError => 1 } )
  or confess $DBI::errstr;