Add head content

Check.pm

@@ -31,7 +31,7 @@ sub action
 {
     # Init
     my($fullTot, $fullSizeTot, $incrTot, $incrSizeTot, $str,
-       $strNone, $strGood, $hostCntGood, $hostCntNone);
+       $strNone, $strGood, $hostCntGood, $hostCntNone, $head_content);
 
     $hostCntGood = $hostCntNone = 0;
     GetStatusInfo("hosts info");
@@ -250,8 +250,13 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
+    # Show header
+            $head_content = <<EOF;
+New header content
+    EOF
+
     my $content = eval ("qq{$Lang->{BackupPC_Check}}");
-    Header("BackupPC: Check", $content);
+    Header("BackupPC: Check", $head_content ,$content);
     Trailer();
 }