Dynamic bandwidth script in perl for pfsense