#!/usr/bin/perl

use strict;
use pizzle;

my $keepgoing = 1;
#infinite loop
while ($keepgoing eq 1) {

    my $piz = pizzle->new( site => 'binky' );

    $piz->DiagCCS;
    $piz->DiagCCG;

    if ($piz->DiagCCS) { $keepgoing = 0; }

}