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

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