Tags if <, > are present in input code
local(*HIS_IN, *HIS_OUT, *HIS_ERR);
my @hl_args = ('-f', "-S$lang");
push (@hl_args, '--inline-css'); # use inline css definitions
push (@hl_args, '-skwrite'); # coloring theme
push (@hl_args, '-l'); # linenumbers
push (@hl_args, '-j2'); # linenumber length
push (@hl_args, '-z'); # linenumber zeroes
push (@hl_args, '-Fgnu'); # reformat
push (@hl_args, '-t4'); # replace tabs
my $childpid = IPC::Open3::open3(*HIS_IN, *HIS_OUT, *HIS_ERR, 'highlight', @hl_args);
print HIS_IN $source;
close(HIS_IN); # Give end of file to kid.
my @outlines = ".$htext."
";
}