%type_map = map { $_ => Net::SNMP::Message->$_() } (
               @{$Net::SNMP::Message::EXPORT_TAGS{'types'}}
            );

$bah = $type_map{$bah}
or die("Bad type\n");