#!/usr/local/bin/perl

#$filename="data.txt";
        #open(FH, $filename) or die "Can't open $filename: $!";

        $i, $j;
        for($i=1000; $i<=1000; $i+=1000)
        {
           for($j=300; $j<=$i*2; $j+=200)
                {
                        system("./clusk4 $i $j >> clus1000k4.txt");
                }
        }