5 my $gbtoxhtml = "$ENV{AONPATH}/bin/gbtoxhtml.pl";
6 my @bookCodes = qw{ 01fftd 02fotw 03tcok 04tcod
7 05sots 06tkot 07cd 08tjoh
8 09tcof 10tdot 11tpot 12tmod
14 foreach my $bookCode (@bookCodes) {
15 print "\n" . ('~' x 10) . " $bookCode " . ('~' x 10) . "\n\n";
16 print qx{$gbtoxhtml $bookCode};