my ($descr, $uptime);
if (eval { ($descr, $uptime) = $snmp->get($vars); 1 }) {
    ...
} else {
    warn $@;
}