$pageTitle

#!/usr/bin/perl -w use strict; use warnings; use CGI; use Data::Dumper; my $cgi = new CGI; BEGIN{ unshift @INC, "/var/www/vhosts/myDomain.com/secured.myDomain.com/cgi-bin/library"; } print $cgi->header; use doctypeAndHeader; header(); ##

##


package doctypeAndHeader;

  use strict;
  use warnings;

  use Exporter;

  use vars qw(@ISA @EXPORT);
 
  @ISA = qw(Exporter);

  @EXPORT = ("header");
  
sub header{

  my $doctypeAndHeader = '';
  $doctypeAndHeader = getDoctypeAndHeader();
  print qq($doctypeAndHeader);
}




sub getDoctypeAndHeader{
  
  
  # configs
  my $pageTitle = 'Bangor Town Centre';
  #my $scriptUrl = $ENV{"SCRIPT_NAME"};
  #my @scriptNameArray = split( '/' , $script_url);
  #my $scriptName = $scriptNameArray[-1]; 
   
  
  my $doctypeAndHeader = "
  
    
      $pageTitle
    
    
  ";
      
return $doctypeAndHeader;
}
1;