print $q->header(
\'-Content-Transfer-Encoding\' => \'binary\',
type => \'application/force-download\',
\'-Content-Length\' => $filesize,
\'-Content-Disposition\'=>\'attachment; filename=\'.$args->{fname}
);
open IMG, "blabla";
binmode IMG;
my $buffer;
while( sysread(IMG,$buffer,100) ) {
print $buffer;
}
close( IMG );
Насчет докачки - уверен, что можно сделать, просто мне этого не
доводилось пока делать. Говорят, готовое решение должно быть
в Perl Cookbook - не знаю, сам не проверял.