owlcode.tech/script/owlcode.tech

#!/usr/bin/env perl

use v5.36.0;

use strict;
use warnings;

use Mojo::File qw(curfile);
use lib curfile->dirname->sibling('lib')->to_string;
use Mojolicious::Commands;

# Start command line interface for application
my @images = curfile->dirname->sibling('public')->child('img')
  ->list->grep(qr/\.generated\.png$/)->each;
for my $image (@images) {
    system 'rm', '-v', $image;
}

Mojolicious::Commands->start_app('OwlcodeTech');