Select Code to Download

use HTTP::Request;
use LWP::UserAgent;
...
    $html .= $_[0];
    die if length($html) > 4096;
}