!/usr/bin/env perl

use Modern::Perl;

use File::Slurper qw(read_dir);

use Mojo::Util "url_escape";

for my $f (sort(read_dir("."))) {

my $n = url_escape($f);

$f =~ s/\.pdf$//;

print "* [https://campaignwiki.org/1pdc/2024/$n $f]\n";

}