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