#!/usr/bin/env -S perl -ni
use 5.014;
use warnings;
use lib '.';
use Shiar_Sheet::DB;

my $db = Shiar_Sheet::DB->connect;
my $query = $db->select(word => 'max(updated)', \['updated > ?', $_]);
say ($query->list or exit 1);