It looks like you're going to continue to ignore all the advice everyone gives you, but as a final attempt:

• When posting the code should be short and able to reproduce the problem you claim. How do I post a question effectively?.
• Doesn't it strike you as odd that you have an end_form but no start_form?
• CGI states that:

"All HTML generation functions within CGI.pm are no longer being maintained. Any issues, bugs, or patches will be rejected unless they relate to fundamentally broken page rendering.

The rationale for this is that the HTML generation functions of CGI.pm are an obfuscation at best and a maintenance nightmare at worst. You should be using a template engine for better separation of concerns. See CGI::Alternatives for an example of using CGI.pm with the Template::Toolkit module."

• Read the previous replies you already have regarding the above, or continue to ignore them should you wish to continue to make life difficult for yourself.
• Consider that people will likely get bored of your behaviour and simply stop answering you.
• If you aren't interested and don't like programming or problem solving ask yourself if you've chosen the right job/course to attend.

> Consider that people will likely get bored of your behaviour and simply stop answering you.

Some will continue as long as they get upvoted.

That's why I stop voting in these threads

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!}

This again, until vroom enables the XP to BTC gateway who cares? ;)

This again, until vroom enables the XP to BTC gateway who cares? ;)

As marto has pointed out, you are deficient in your examples. what you have posted will not work period. Luckily for you I can understand clueless newbie speak, and this works just fine for me.

#!/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;
[download]

print start_form(-method=>'GET');
[download]

"GET"! That solved it for me!Thank you!!!

Yeah, but keep in mind that when you use GET to send data, the form values are sent through the URL string. So, that's not very secure...

If you use "POST" to submit form data, then you have to read those from STDIN in your perl script like so:

# Usage: STRING = GetFormData()
# Returns the form content as one giant string.
sub GetFormData
{
my @L;
while (<STDIN>)
{ push @L, $_; }
@L or return '';
return join('\n', @L);
}

...

my $FORM_DATA = GetFormData();

(My Disclaimer: I'm a beginner perl programmer myself, so... what I say may not be 100% correct. LOL)