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