download with PERL

Ясен красен, типа кокой заголовок выдаешь ;), то и получаешь.
типа смотри в сторону Content-type: octet-stream
да и binmode на STDOUT немешало бы поставить

#!/usr/bin/perl
print "Content-Type: application/octet-stream\nContent-Length: ", -s 'img.zip' ,"\n";
print "Content-Disposition: attachment; filename=img.zip\n\n";
open (fil,"<img.zip") or print "$!";
while (<fil>)
{
print $_;
}
close (fil);

Спосибо!!!

Использую этот скрипт он ПОЧТИ работает, но почему то не передается знак переноса строки. Т.е. если файл содержал:
line1
line2
line3
то результат будет:
line1line2line3
Как это исправить? И почему это происходит?
==============================================
print "Content-Type: application/octet-stream\n";
print "Content-Length: ", -s "$dir/$file" ,"\n";
print "Content-Disposition: attachment; ";
print "FileName=$file\n\n";
open(F,"<$dir/$file");
binmode(STDOUT);
while(<F>)
{
print;
}
close(F);
==============================================

так чего надо скачивать текстовые файлы, или бинарники???

In other words: Regardless of platform, use binmode() on binary files, and do not use binmode() on text files.

The operating system, device drivers, C libraries, and Perl run-time system all work together to let the programmer treat a single character (\n) as the line terminator, irrespective of the external representation. On many operating systems, the native text file representation matches the internal representation, but on some platforms the external representation of \n is made up of more than one character.

Mac OS and all variants of Unix use a single character to end each line in the external representation of text (even though that single character is not necessarily the same across these platforms). Consequently binmode() has no effect on these operating systems. In other systems like VMS, MS-DOS and the various flavors of MS-Windows your program sees a \n as a simple \cJ, but what's stored in text files are the two characters \cM\cJ. That means that, if you don't use binmode() on these systems, \cM\cJ sequences on disk will be converted to \n on input, and any \n in your program will be converted back to \cM\cJ on output. This is what you want for text files, but it can be disastrous for binary files.

Нужно передовать любые файлы как они есть!!! Т.е. в бинарном представлении. Дело в том что даже когда я убираю binmode всеравно \n не передается. Но сам по себе перенос меня не интересует, мне важнее что после скачки .зип файлы не открываются

ОС сервера с которого ты сливаеш файлы?
В каком режиме закачиваеш туда?
Каким редактором просматриваеш?

Вот кусок кода который я лобал для e-russiajournal.com. Он вроде работает, но если какие замечания возникнут, то милости просим ;)=