#!/usr/bin/perl -wT

use strict;
use HTML::Template;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);  # debugging only - for production "use CGI::Carp;"
use vars qw(@urlsA @urlsB);


my $template = HTML::Template->new(filename => "template.tmpl");
$template-> param(
    servname => $ENV{'SERVER_NAME'},
    );

my %urlhashA = (
      'Home'     => '/',
      'Icons'    => '/icons/',
      'Sitedocs' => '/doc/',
      );
my %urlhashB = (
      'Cisco'      => 'http://www.cisco.com/',
      'CPAN'       => 'http://search.cpan.org/',
      'Google'     => 'http://www.google.com/',
      'Perl Monks' => 'http://www.perlmonks.org/',
      );


while (my ($name,$url) = each %urlhashA) {
    push @urlsA, {nameA=>$name, urlA=>$url}
    }
$template->param(urlloopA => \@urlsA);


while (my ($name,$url) = each %urlhashB) {
    push @urlsB, {nameB=>$name, urlB=>$url}
    }
$template->param(urlloopB => \@urlsB);