use CGI qw/:all/;
use CGI ':cgi-lib';
use CGI::Carp qw(fatalsToBrowser);
use DBI;
### Global Variables
$GLOBAL{'CURRENT_PAGE'} = self_url;
$GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'};
$GLOBAL{'HOME'} =~s/\?.*//;
my %GLOBAL =();
$GLOBAL{'CONTACT_SUPPORT'} = 'filldata@gmail.com';
$GLOBAL{'CURRENT_PAGE'} = self_url;
$GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'};
$GLOBAL{'HOME'} =~s/\?.*//;
print start_form(-method=>'GET');

print " <br> &nbsp<B>Site</B> &nbsp";
$site_selected="place";

print popup_menu(
       -name    => 'popup1',
       -values  =>['place','place1','place2','place3'],
       -default => 'value2'
       -submit => 'submit'
         );
print "&nbsp &nbsp &nbsp &nbsp &nbsp  ";

print submit(-name=>'submit',-values=>'submit');
print end_form;

 $site_selected = $CGI_PARAM{'popup1'};
if($site_selected =~ /^\s*$/)
{

$site_selected="place";

}