my $DEV = "dev eth1";
my $count=500;
for ($x = 1;$x < 23;$x++)  {
for ($y = 1;$y < 255;$y++) {

  print HTB "\n class add $DEV parent 1:7 classid 1:0x".$count." rate 4kbit ceil 512Kbit burst 4kbit prio 1 quantum 2000\n";
  print HTB " filter add $DEV protocol ip parent 1:0 prio 1 u32 match ip dst 10.".$x.".0.".$y."/32 match ip src 0.0.0.0/0 flowid 1:0
x".$count."\n";
  print HTB " qdisc add $DEV parent 1:0x".$count." handle 0x".$count++.": pfifo limit 5\n";
}
}