#!/usr/bin/perl
use strict; use warnings; 


select STDOUT; $| = 1;

use CGI ':standard';

# 1186469.pl

print header();

my $ispopup1=param('popup1'); 
$ispopup1='' unless (defined($ispopup1)); 
print 'Popup1:'.$ispopup1.'<br>'."\n"; 

print start_form();
print " <br> &nbsp<B>Sort</B> &nbsp";
my $site_selected="Building";
#@values=@columns;
my @values = ('Building', 'Nepal','West','Landmark');
print popup_menu(
       -name    => 'popup1',
       -values  => \@values,
       -default => 'value2'
         );
print "&nbsp &nbsp &nbsp &nbsp &nbsp  ";
#print hidden(-name =>"view",
#      -value => $CGI_PARAM{'view'});  
print submit('submit');
print end_form;