Added some non working code to process the top block comment

process.pl

@@ -39,3 +39,34 @@ sub process_file {
   }
   return $data;
 }
+#sub process_comment {
+#  # The data string
+#  my $data = $_[0];
+#  # Is the author line in there?
+#  my $author = 0;
+#  # Is the description there?
+#  my $desc = 0;
+#  # Is the first name there?
+#  my $fname = 0;
+#  # Are we still in the top comment area?
+#  my $incomment = 1;
+#  # If there is no top comment in the beginning, add the base comment
+#  if ($data !~ /^\s*\/\*\*/) {
+#    $data = "/**\n * \@file $filename\n * \@author Austen Adler (agadler)\n * TODO: Description\n */\n$data";
+#    $author = 1;
+#    $desc = 1;
+#    $fname = 1;
+#  } else {
+#    # Otherwise process an existing comment
+#    while ($incomment) {
+#      if (/\s*\*\//) {
+#        $incomment = 0;
+#      } elsif (/\s*\* \@author/) {
+#      } elsif (/\s*\* \@file $filename/) {
+#      } elsif (/\s*\* \@author/) {
+#      }
+#    }
+#    
+#  }
+#  return $data;
+#}