my $content_length = $end - $begin;

print "Content-Type: text/html \r\n";
print "Content-Type: application/x-vlc-plugin \r\n";
print "Cache-Control: public, must-revalidate, max-age=0 \r\n";
print "Pragma: no-cache \r\n" ;
print "Accept-Ranges: bytes \r\n";
print "Content-Length: $content_length", "\r\n";
print "Content-Range: bytes $begin-$end/$size \r\n";
print "Content-Disposition: inline; filename=\"$name$ext\"\r\n";
print "Content-Transfer-Encoding: binary\r\n";
print "Connection: close\r\n";