Select Code to Download

print $query->popup_menu(-name=>'directory',
                             -values=>\@dir,
                             -labels=>\@dir=>\@users);