$currnet_count++;
open(FILE2, "$file") or die "Can't open $file: $!\n";
print "Content-Type: application/unknown\n";
print "Content-Disposition: attachment; filename=$filename\n";
print "Content-Length: $filesize\n\n";
while (<FILE2>) { print; }
close(FILE2);