#! /usr/bin/perl use strict; use warnings; # contention window sizes #my @cw = (15, 31, 63, 127, 255, 511, 1024); my @cw = (15,63,255,1023); foreach my $cw (@cw) { system("./run_simulations.pl --nodes 200 --num-sim 5 --end 65 --cw $cw"); system("mv data data-$cw"); system("mkdir data"); }