#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

use DBI qw(:sql_types);

my $dbfile  = "./YourDbName.sqlite";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",{RaiseError => 1})
    or die "Couldn't connect to database: " . DBI->errstr;
    
    
my $get_links_4date_sql = "SELECT Identifer, LINK
                           FROM    YourTableName
                           WHERE   Publish date IS ?");

my $get_links_4date = $dbh->prepare ($get_links_4date_sql);

my $date = "20220701";

$get_links_4date->execute($date);
my $array_ref = $get_links_4date->fetchall_arrayref;

foreach my $row_ref (@$array_ref)
{
   my ($id,$link) = @$row_ref;
   
   print "$id \t $link\n";
}