if( my $httprange = $cgi->http('range') ){
        if( $httprange =~ /bytes=(\d+)(?:-(\d*))?/i ){
            my $from = $1;
            my $to = $2;
            $from  and $begin = $from;
            $to    and $end   = $to;
        }
    }