#!/usr/bin/perl use CGI; my $cgi=new CGI; print $cgi->header; $region = $cgi->param("region"); print < website HERE print <<HERE1; HERE1 #navigation header come here print &printer('../navigation/de_nav_bar.html'); print < HERE2 #brand background image comes gere print < HERE3 # navigation footer comes here print &printer('../navigation/de_template_footer.html'); sub printer { my $a=shift; open(F,$a) or die("$a not opened\n"); my $b; { local $/; $b=; } return $b; }