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";

}
[download]

just where do you expect $CGI_PARAM to come from? See this Re: submit button fails to pass the values using perl cgi?, i already showed you the answer. Pay particular attention to the my $ispopup1=param('popup1'); line.

and do you realize that after you say my %GLOBAL =(); all the stuff before it

$GLOBAL{'CURRENT_PAGE'} = self_url;
$GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'};
$GLOBAL{'HOME'} =~s/\?.*//;
[download]

gets thrown away?

You will avoid a lot of problems if you start your programs with

use strict; 
use warnings;
[download]

And why do you persist in using two names when it is clear that both are the same clueless person?

It's amusing how he only uses the bad parts of CGI.pm, and he has some garbage from Matt's Script Archive to handle the params.