Hardware::UPS-Perl - module and scripts to deal with an UPS - View it on GitHub