#!/usr/bin/perl -l
#
use strict;
use warnings;

use CGI qw/:all *table'/;
use English q{-no_match_vars};

my %sections = (
   q{ DMA} => q{dma},
   FST     => q{dma/fst},
   MRA     => q{dma/mra},
   BKS     => q{bks},
   MSU     => q{dma/msu},
   FMA     => q{dma/fma},
   FOMC    => q{dma/FOMC});

print q{<h3 align='center'>};

my @aTags =
   map { a({-href => qq{/$sections{$_}}}, qq{$_ HOME}) }
   sort keys %sections;

{
    local $LIST_SEPARATOR = q{|};
    print qq{@aTags};
}

print q{</h3>};