Not Perl solutions, but these won't require much (if any) modifications to the existing code:
- consult with your sysadmin and/or network admins and see if they can't put some sort of bandwidth limiting in place at the router or firewall level
- route things through a squid proxy and let it do the limiting