declare $bpc out of loop

Check.pm

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