A simple Perl script which monitors system load and if the load is higher than a specified amount, it performs user-defined commands in an attempt to lower the load. Once the load has returned to a normal level (also user-defined), it will perform another set of specified commands to bring the server back to normal. This script also can connect to an Eggdrop bot to announce problems with the server load in real-time.