#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
mkdir('shapers');

my @s_list = ('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '15', '20', '25', '30', '40', '50', '60', '70', '80', '90', '100', '150', '200', '250', '300', '500', '1000');
foreach my $e (@s_list)
{
        open(FILE, '>', 'shapers/s' . $e . 'mbit.txt');
        close(FILE);
}