#!/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);
####
<!-- tmpl_var name=servname -->
">
">