sub dl_file { 

	my $file = param('file');
	$file =~ s/^\.+//;
	$file =~ s/^\///;
	
	if (-e "$folder/$file") {
		 my $data;
		 open IN,  "$folder/$file" or die "Cannot open file $file, $!\n";
		 binmode IN;
		 {local $/; $data = <IN>;}
		 close IN;
		 my $filename = (reverse (split /\//, $file))[0];
		 print header(-type=>"application/x-msdownload",
		 	     -attachment=>$filename,
		 	     -cookie=>[$cookie1, $cookie2]);
		 print $data;
	}
	else {
		print $top, h1('Error'), p('file not found.');
		print hr, a({-href=>"$me?command=MAIN"}, 'Back to Main'), $bottom;
	}

}