$tpl[0] =~ s#(</title>)#$title$1$after_title#is;
$tpl[0] =~ s#(<body\b)#$1$body_attrs#is if $body_attrs;
my $top = File::Spec::Unix->abs2rel('', $textdir);
$tpl[0] =~ s#(</title>)#$title$1$after_title#is;
$tpl[0] =~ s#(<body\b)#$1$body_attrs#is if $body_attrs;
my $top = File::Spec::Unix->abs2rel('', $textdir);