diff --git a/bin/rrd-extractstats.pl b/bin/rrd-extractstats.pl
index 685f625..a729720 100755
--- a/bin/rrd-extractstats.pl
+++ b/bin/rrd-extractstats.pl
@@ -42,8 +42,12 @@ my @rrdfiles = File::Find::Rule->maxdepth(2)->file->in($rrdpath);
 $|=1;
 my $i :shared = 0;
 
-my $cpus = do { local @ARGV='/proc/cpuinfo'; grep /^processor\s+:/, <>;};
-my $num_workers	= $cpus / 2;
+my $num_workers	= 1;
+if (($ENV{'THREADS'}) and ($ENV{'THREADS'} =~ /^\d+$/) and ($ENV{'THREADS'} > 0)) { 
+    $num_workers = $ENV{'THREADS'};
+}
+print("Using " . $num_workers . " threads.\n");
+
 my $num_work_units = scalar @rrdfiles;
 
 my $q = Thread::Queue->new();