Select Code to Download

use strict;
...
          .   join("\n", map { $_->as_HTML } ($tit, $sub, $aut, $art) 
+)
          .   "</body></html>";