Select Code to Download

    use HTTP::Response;
    use IO::File;
...
    
    print $response->decoded_content;

        my @ranges;
        if($ENV{HTTP_RANGE} =~ s/^bytes=//i) {
...
            close(FILE);
        }