$ ./2.curl.pl | tail -5
zymotic
zymurgies
zymurgy
zyzzyva
zyzzyvas
$ cat 2.curl.pl 
#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new( 'send_te' => '0' );
my $r  = HTTP::Request->new(
    'GET' =>
'https://storage.googleapis.com/google-code-archive-downloads/v2/code.google.com/dotnetperls-controls/enable1.txt',
    [
        'Connection' => 'keep-alive',
        'Accept' =>
'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8',
        'Accept-Encoding' => 'gzip, x-gzip, deflate, x-bzip2, bzip2',
        'Accept-Language' => 'en-US,en;q=0.5',
        'Host'            => 'storage.googleapis.com:443',
        'Referer' =>
          'https://code.google.com/archive/p/dotnetperls-controls/downloads',
        'User-Agent' =>
'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:74.0) Gecko/20100101 Firefox/74.0',
        'Upgrade-Insecure-Requests' => '1',
    ],

);
my $res = $ua->request( $r, );

### begin Aldebaran-added source 
my @words;
# check the outcome
if ($res->is_success) {
   #print $res->decoded_content;
   @words = $res->decoded_content;
}
else {
   print "Error: " . $res->status_line . "\n";
}

if (@words) {
print "@words\n";

}

__END__
$