#!/usr/bin/perl

use strict;
use cos_vectors;

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

    my $vec = cos_vectors->new( site => 'bonc' );

    print $vec->site." ".$vec->Fverbose."\n";
    $vec->clean_Dproc;
    my $syscall = sprintf("%s/CheckForCombine 0 %s 1 \"\" %s",$vec->Dbin,$vec->site,$vec->Dproc);
    print $syscall."\n";
    #system("$vec->{Dbin}/CheckForCombine 0 $vec->{site} 1 '' $vec->{Dproc}");

    $keepgoing = 0;

}