netspeed in perl