- my @table = do "writing-$source.inc.pl";
- if ($! or $@) {
- print "<h2>$title</h2>\n";
- printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
+ my @table = eval { Data("writing-$source") } or do {
+ say "<h2>$title</h2>";
+ printf "<p>%s: <em>%s</em>.</p>\n", @{$@};