sub displayHeader{ print < DISPLAYINGHEADER } ##

##

sub displayErrorPage{
   &displayHeader;
   ...
}
sub displayConfirmationPage{
   &displayHeader;
   print $cgi->p("Thank You");
   ...
}