It looks like the script is mostly I/O bound, I don't know if there's anything you can do on the perl side to speed it up.

If you want to try it nonetheless, you first have to identify the parts that are actually slow by profiling it.

But maybe you just want to set quotas?