My Page Title

   package HtmlHeader;

   use strict;
   use warnings;

   use parent 'Exporter';

   our @EXPORT_OK = qw[ header ];

   sub header {
   
      my $doctypeAndTitle = getDoctypeAndTitle();

      my %doctypeAndTitle = (
      doctypeAndTitle => $doctypeAndTitle ); 

   return %doctypeAndTitle;
   }




   sub getDoctypeAndTitle{

   my $doctype = "<!doctype html>
   <html>
    <head>
      <title>My Page Title</title>
    ";

 
   return $doctype;
   }
1;