tools/lastword

   1 #!/usr/bin/env -S perl -ni
   2 use 5.014;
   3 use warnings;
   4 use lib '.';
   5 use Shiar_Sheet::DB;
   6
   7 my $db = Shiar_Sheet::DB->connect;
   8 my $query = $db->select(word => 'max(updated)', \['updated > ?', $_]);
   9 say ($query->list or exit 1);