[- $args = shift @param; $theme = $args->{theme}; $addrs = &EMU::get_var('data'); @addrs = split(/ /, $addrs); $log = &EMU::get_var('log'); -]