#!/usr/local/bin/perl5 -s
 
require 5.000;

open (MARKERS, ">regular_markers.txt") or die "cannot open MARKERS\n";

##	generate random numbers to test r-scan

$max = 1000000;
$start = 0;
$num = 20000;
$diff = $max / $num;
    for ($i = 1; $i < $num+1; $i++) {
	$marker = $start + $i * $diff;
	print MARKERS "$marker\n";
	}

close (MARKERS) || die "MARKERS file was not closed\n";
exit (0);

__END__

