open (FILE, "< $path_file") or die "can't open $path_file: $!";
binmode FILE;
local $/ = \102400;
while (<FILE>) {
    my $var = scalar $_;
    $response->body($var);
    return $response->finalize;
}
close FILE;