sub dl_file { 

    my $file = param('file');
    $file =~ s/^\.+//;
    $file =~ s/^\///;
    
    if (-e "$folder/$file") {
         open IN,  "$folder/$file" or die "Cannot open file $file, $!\n";
         my $filename = (reverse (split /\//, $file))[0];
         print header(-type=>"application/x-msdownload",
                  -attachment=>$filename,
                  -cookie=>[$cookie1, $cookie2]);

         my $data;
         binmode IN;
         while ( read(IN,$data,16384)) {
           print $data;
         }
         close IN;
    }
    else {
        print $top, h1('Error'), p('file not found.');
        print hr, a({-href=>"$me?command=MAIN"}, 'Back to Main'), $bottom;
    }
}