using templates in a perl script

################################################################################
##### NAME : CreatePage
##### FUNCTION :::
##### Generates HTML pages to be displayed according to template.
##### ARGUMENTS :::::
##### First argument is Template File.
##### Second argument is the hash containing variable to be replaced.
##### Third argument specifies whether write HTML page to file or to STDOUT.
################################################################################

sub CreatePage {
	
   my ($templatefile,$r_namespace,$filename) = @_;
   my ($template);

  #OUTPUT FLUSH ON.
  $| = 1;

  # Open template and read in

open(TEMPLATE,$file) or HandleError("Can not open $file !!!",$!,"Make sure $file exits");
{
    local($/) = undef;
	#By setting system variable $/ you are reading whole file in $template, otherwise, it would read file data
	#separated by newline character.
    $template = <TEMPLATE>;

 }
 close(TEMPLATE);
  
$template =~ s/\$([A-Z]+)/$r_namespace->{$1}/g;

if($filename eq "")
{
	print $template;
}
#if filename is specified then write to file else write to std out.

else
  {
	  open (MYINDEXPAGE,">$filename") or HandleError("Can not open $filename for writing.",$!,"Make sure $filename can be written!!");
	  print MYINDEXPAGE $template;
	  close(MYINDEXPAGE);
  }
  return 1;

}

		local %namespace = (
				CONTACTID => "SPECIAL",
				EMAIL => $opt_param,
				OPTEMAIL => "webmaster\@texsurat.com",
				SCRIPTURL => $scripturl,
				PERSONNAME => 'ITS SPECIAL',
				COMNAME => '' );
			if($header == 0)
			{
				print "Content type:text/html\n\n";
			}
			CreatePage("form2.htm",\%namespace,"");

use Wheel;
my $wheel=Wheel->new();
$wheel->reinvent();