2 # Books of Pumpkins, etc. Extensions to Quacks of Quedlinburg
3 # SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
4 # Copyright 2020-2021 Ian Jackson
10 my $md = shift @ARGV // die;
11 open M, '<', $md or die "$md: $!";
14 $ttitle =~ s{^\%\s+}{} or die;
15 $utitle = "$ttitle - Quacks Books of Pumpkins";