#!/usr/bin/perl -w

##</code><code>##

    C:\temp>perl -wc index.pl
    Name "main::ccdrive" used only once: possible typo at index.pl line 4.
    Name "main::name" used only once: possible typo at index.pl line 68.
    Name "main::rephash" used only once: possible typo at index.pl line 158.
    index.pl syntax OK

##</code><code>##

    $ccdrive = $ENV{CC_DEFAULT_DRIVE};

##</code><code>##

    $name=$hash{"Tag"};

##</code><code>##

    print TFILE2 "<font color=\"$rephash($ABC[$idx])\"><td> $ABC[$idx]&nbsp </td> ";

##</code><code>##

    print TFILE2 "<font color=\"$rephash{$ABC[$idx]}\"><td> $ABC[$idx]&nbsp; </td>";

##</code><code>##

    print TFILE2 "<font color=\$rephash{$replica}\> <td> $rephash{$replica} $DEF[$idx]&nbsp</td>";

##</code><code>##

    print TFILE2 "<font color=\"$rephash{$replica}\"> <td> $rephash{$replica} $DEF[$idx]&nbsp;</td>";