Select Code to Download

    #!/usr/bin/perl -w

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

    $ccdrive = $ENV{CC_DEFAULT_DRIVE};

    $name=$hash{"Tag"};

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

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

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

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