Select Code to Download

$query->textfield(-name=>'Company_Name',-size=>20);

$query->popup_menu(-name=>'Company_Name',-values=>\@first_entries);

['company1','company2']

@first_entries=('company1','company2');

-default=>'company1'

@values=('URL1','URL2','URL3');
%labels=('URL1'=>'company1','URL2'=>'company2','URL3'=>'company3');
print $query->popup_menu(-name=>'Company_Name',
  -values=>\@values,-labels=>\%labels,-default=>'URL2');