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