Declare $frequency in loop

Check.pm

@@ -26,15 +26,14 @@ use Statistics::Descriptive;
 sub action
 {
     # Init
-    my($str, $strNone, $strGood, $frequency, $header);
+    my($str, $strNone, $strGood, $header);
 
     GetStatusInfo("hosts info");
     my $Privileged = CheckPermission();
 
     # Start loop
     foreach my $host ( GetUserHosts(1) ) {
-        my($incrCnt, $incrAge, $reasonHilite,
+        my($incrCnt, $incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor);
-           $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor);
         my($shortErr);
         my $bpc = BackupPC::Lib->new();
         my @Backups = $bpc->BackupInfoRead($host);