Nicolay A. Vasiliev wrote:
I don't know anything how to download the file via perl script.
This code, which I copied from a program of mine, may get you started:
open FILE, "< $dir/$file" or die "Can't open ... $!";
binmode FILE;
binmode STDOUT;
print "Content-Type: application/zip\n",
"Content-Disposition: attachment; filename=$file\n",
'Content-Length: ' . (stat "$dir/$file")[7] . "\n\n";
while (<FILE>) { print }
close FILE;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>