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

##</code><code>##

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

##</code><code>##

['company1','company2']

##</code><code>##

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

##</code><code>##

-default=>'company1'

##</code><code>##

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