Select Code to Download

  my $URL = shift or die "Usage: $0 URL\n";
  use LWP::Simple;
...
  print HTML::TreeBuilder
  ->new_from_content( get( $URL ) or die "Error getting $URL\n" )
  ->as_trimmed_text;