帮写个循环

lxc521

#!/bin/bash

DEV=eth1
tc qdisc del dev $DEV root 2>/dev/null
tc qdisc add dev $DEV root handle 2: htb
tc class add dev $DEV parent 2: classid 2:1 htb rate 3000kbit
for (( i=2; i<=10; i=i+1 ))
do
tc class add dev $DEV parent 2:1 classid 2:2$i htb rate 512kbit ceil 768kbit burst 15k
tc qdisc add dev $DEV parent 2:2$i handle 2$i: sfq
tc filter add dev $DEV parent 2:0 protocol ip prio 4 u32 match ip dst 10.68.10.$i flowid 2:2$i
done

高手帮帮忙把这段BASH改成perl语句啊
perl 下面执行shell 是不是perl system啊，还是perl -e？