sub seed_sitehash {
        my ($seedURL) = @_;
        my $u1 :shared = URI->new($seedURL); ***
        my $newpage :shared = eval { new Page(); } or die($@);
        $newpage->uri($u1);
        my @new_pages : shared;
        print $newpage->uri->host. "\n";
        %siteHash->{$newpage->uri->host} = \@new_pages;
        unshift(@{%siteHash->{$newpage->uri->host}}, $newpage);
}