diff --git a/pelab/bw-bottleneck/get-all-bw.pl b/pelab/bw-bottleneck/get-all-bw.pl
new file mode 100644
index 0000000000000000000000000000000000000000..d97293e3f3e6554d3c0854c55309d1746deeb783
--- /dev/null
+++ b/pelab/bw-bottleneck/get-all-bw.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+if ($ARGV != 4)
+{
+    die("Usage: get-all-bw.pl <pid> <eid> <node-count> <duration>");
+}
+
+$pid = $ARGV[0];
+$eid = $ARGV[1];
+$nodeCount = $ARGV[2];
+$duration = $ARGV[3];
+
+for ($i = 1; $i <= $nodeCount; ++$i)
+{
+    system("perl gather-dest.pl $pid $eid $nodeCount $i $duration");
+}