use IO::Handle;

my $BLOCK_SIZE = 1024 * 1024; 
open(my $fh, "<:raw", $path_file) or die "Can't read from input file $path_file $!\n";

while (read($fh, $buffer, $BLOCK_SIZE)) {
   
   $response->body($buffer);
   $fh->autoflush;

}
close $fh;

return $response->finalize;