Hi all

I'm trying to list out the contents in a certain folder in a drop down menu. After selecting a file it has the ability to download that file. The menu gets displayed properly but the file doesn't get downloaded. Its displayed as text instead. I do understand this is an issue with the header but im really new to perl so unable to resolve this issue. Your help is much appreciated

#Declare Variables

my $cgi    = new CGI;
my $filepath= "/opt/run/test/dump";
@array = `ls //opt/run/test/dump`;
chomp @array;

                      
print $cgi->header ;

if (!$cgi->param) {
    print $cgi->startform;
    print $cgi->h3('Download logs');
    print $cgi->popup_menu(-name=>'selected_file', -values=>[@array]);
    
    print $cgi->br;
    print $cgi->submit(-value=>'Download file');
    print $cgi->endform;

} else {
    print $cgi->h3('Downloading ');
    $file = $cgi->param('selected_file');
    print "<BLOCKQUOTE>\n";
    print $file;
    print "</BLOCKQUOTE>\n";
    
    print ("Content-Type:application/x-download\n");
    print "Content-Disposition: attachment; filename=$file\n\n";

    open FILE, "< $filepath/$file" or die "can't open $filepath/$file 
+: $!";
    binmode FILE;
    local $/ = \10240;

    while (<FILE>){
        print $_;
    }
close FILE;
}
print $cgi->end_html;
1;
[download]