return send_file( $in_fh, streaming => 1, content_type => $mime_type, callbacks => { around => sub { my ($writer, $content) = @_; my $buf = ''; while( read( $content, $buf, VID_READ_LENGTH ) ) { $writer->write( $buf ); } } }, );