14 lines
228 B
Perl
14 lines
228 B
Perl
#!/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;
|
|
|