my $info = eval { Data($include) } || {};
warn "error in $include: ", @{$@} if ref $@;
$mode = $info->{title} // $mode;
my $info = eval { Data($include) } || {};
warn "error in $include: ", @{$@} if ref $@;
$mode = $info->{title} // $mode;
say "<p>$_</p>" for $info->{intro} // ();
say "<h2>", $info->{mode}->{''}, " (default)</h2>"
if $info->{mode} and %{ $info->{mode} } > 1;
say "<p>$_</p>" for $info->{intro} // ();
say "<h2>", $info->{mode}->{''}, " (default)</h2>"
if $info->{mode} and %{ $info->{mode} } > 1;