Help for this page

Select Code to Download

Select or download this
print ">${unixfrom}\n";

Select or download this

{
    local $, = "\n";
    print '>' . $unixfrom,
...
          $xkeywords[$j],
          $xuid[$j];
}