use strict;
use warnings;

use open ':std', ':locale';

use LWP::Simple    qw( get );
use HTML::Strip    qw( );
use HTML::Entities qw( decode_entities );

my $url = $ARGV[0];

defined( my $decoded_html = get($url) )
   or die("Couldn't fetch $url\n");

my $hs = HTML::Strip->new( decode_entities => 0 );
utf8::encode( my $utf8_html = $decoded_html );
my $utf8_text = $hs->parse( $utf8_html );
utf8::decode( my $decoded_text = $utf8_text );
$decoded_text = decode_entities($decoded_text);

$decoded_text =~ s/^\s+//;
print substr($decoded_text, 0, 400);