Too many errors

perl -c check_snmp_mgeeaton_ups.pl
String found where operator expected at check_snmp_mgeeaton_ups.pl line 320, near “case “information””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 321, near “case “va_rating””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 322, near “case “battery_remaining_time””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 323, near “case “battery_level””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 324, near “case “battery_replacement””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 325, near “case “battery_fault””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 326, near “case “battery_voltage””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 327, near “case “battery_low_battery””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 328, near “case “battery_charger_fault””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 329, near “case “battery_low_condition””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 330, near “case “input_voltage””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 331, near “case “input_frequency””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 332, near “case “input_line_fail_cause””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 333, near “case “input_bad_status””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 334, near “case “output_load””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 335, near “case “output_voltage””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 336, near “case “output_frequency””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 337, near “case “output_on_battery””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 338, near “case “output_on_by_pass””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 339, near “case “output_over_load””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 340, near “case “output_over_temp””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 341, near “case “output_utility_off””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 342, near “case “output_inverter_off””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 343, near “case “ambient_temperature””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 344, near “case “ambient_humidity””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 345, near “case “agent_firmware_version””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 346, near “case “agent_mib_version””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 1108, near “case “1””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 1109, near “case “2””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 1110, near “case “3””
(Do you need to predeclare case?)
String found where operator expected at check_snmp_mgeeaton_ups.pl line 1111, near “case “4””
(Do you need to predeclare case?)
syntax error at check_snmp_mgeeaton_ups.pl line 319, near “) {”
syntax error at check_snmp_mgeeaton_ups.pl line 321, near “case “va_rating””
syntax error at check_snmp_mgeeaton_ups.pl line 347, near “; }”
syntax error at check_snmp_mgeeaton_ups.pl line 351, near “; }”
syntax error at check_snmp_mgeeaton_ups.pl line 379, near “}”
syntax error at check_snmp_mgeeaton_ups.pl line 1107, near “) {”
syntax error at check_snmp_mgeeaton_ups.pl line 1109, near “case “2””
syntax error at check_snmp_mgeeaton_ups.pl line 1109, near “; }”
syntax error at check_snmp_mgeeaton_ups.pl line 1110, near “; }”
syntax error at check_snmp_mgeeaton_ups.pl line 1111, near “; }”
check_snmp_mgeeaton_ups.pl has too many errors.