sub handler {
   #!/usr/bin/perl
   use strict;
   use warnings;
   use CGI;
   my $cgi = new CGI;
   print_document_header();
   sub print_document_header {
      print $cgi->header( -type => 'text/html' ), "\n";
   }
}