my $app = sub {
    use Path::Tiny qw/ path /;
    use File::MimeInfo qw/ mimetype /;
    
    my $env         = shift;
    my $path_file = 'win.iso';
    
    my $content_type = mimetype($path_file) || 'application/octet-stream';
    
    my $basename = path($path_file)->basename;
    $basename =~ s{[^\w\.-]+}{_}g;
    
    my $filehandle = path($path_file)->openr_raw ;
        
    return [
        200,
        [
            'Content-Type'        => $content_type,
            'Content-Length'        => -s $filehandle,
            'Content-Disposition' => qq[attachment; filename="$basename"],
        ],
        $filehandle
    ];
};