my $range= 10000;
open(my $file,"<","counter.txt") or die "Could not read counter file: $!\n";
my $counter= <$file>;
$counter++;
$jobNum= $counter*$range + int(rand($range));
open($file,">","counter.txt") or die "Could not write to counter file: $!\n";
print $file $counter;