C:\cygwin64\home\Fred\pages2\list>perl scraper1.pl
nix!

C:\cygwin64\home\Fred\pages2\list>type scraper1.pl
#! /usr/bin/perl
use warnings;
use strict;
use 5.010;
use HTML::TreeBuilder 5 -weak;

my $site = 'http://www.fourmilab.ch/yoursky/cities.html';
my $tree = HTML::TreeBuilder->new_from_url($site);
foreach my $e ($tree->look_down(_tag => 'div')) {
  foreach my $f ($e->look_down(_tag => 'p')) {
    say $f->as_text;
  }
}
say "nix!";
C:\cygwin64\home\Fred\pages2\list>