#!/usr/local/bin/perl5



# usage:  
# make-random-db.pl <dbfile> <total> ofile*


$DBFILE = shift @ARGV;
$OFILE = "";
$COUNTER = shift @ARGV;

if (@ARGV) {
$OFILE = shift (@ARGV);
}else{$OFILE = ($DBFILE . ".$COUNTER");
  }