Select Code to Download

    while (my $line=<$fh>) {
    chomp $line;
...
    my $class = $data[0] ? 'normal' : 'bold';
    print $fh_out qq[<tr class="$class"><td>] . join('</td><td>', spli
+t(/:/,$line)) . "</td><a href=#></a></tr>\n";
    }

    DCMS_DEMO
    |-- DCMS_DEMO.config
...
    |   |   `-- rev2
    |   |       |-- rev2.config
    |   |       `-- rev2.html

    |-- DCMS_DEMO.config
    |-- DCMS_DEMO.html
...
    |   |-- Block_DV
    |   |   |-- Block_DV.config
    |   |   |-- Block_DV.html