print "Content-Type: $type\n";
print "Content-Length: ",(-s $file),"\n";
print "Content-Transfer-Encoding: binary\n";
print "Content-Disposition:attachment;filename=$fname\n\n";


open(FILE,$file) || die"Error1($file) $!";
my ($buf,$rd);
while($rd=read(FILE,$buf,1024*$speed))
{
   print $buf;
   sleep 1;
}