Here's one way I can think of:

use LWP::Simple;
use HTML::TreeBuilder;
use IO::File;

IO::File
->new( "> $file" )
->print(
  HTML::TreeBuilder
  ->new_from_content( get $url )
  ->as_text
)
[download]

Short and sweet. But lacking any kind of error handling. :-(