use v6;
use perl5:URI::Find::Simple qw(list_uris);
say join(' ',URI::Find::Simple.list_uris('http://linuxfr.org/'));