$html .= popup_menu ( -name => $obj,                                                              -values=>\@machines);