package Zabbix::Agent::Addons::UPS; use warnings; use strict; use File::Which; # List configured UPS (only nut is supported) sub list_ups { my @ups = (); my $upsc = which('upsc'); if ($upsc && -x $upsc){ my @out = qx($upsc -l); if ($? == 0){ @ups = map { chomp($_) } @out; } } return @ups; };