foreach $confline (@domconf) { chomp($confline); my $resend2 = "no"; my $waitforok2 = "yes"; while ($waitforok2 eq "yes") { my $checkhash2 = GenerateMD5("confline: $confline"); if (defined($resend2) && $resend2 eq "yes") { print "$verify - Rebuilding Encryption Table: "; $cipher = new Crypt::CBC("$verify", 'Blowfish_PP'); } my $response2 = $cipher->encrypt("confline: $confline"); print $client "$checkhash2 $response2\n"; ($waitforok2, $resend2) = FinishUp2($client); } }