while @url {
   $page = get ( $url = shift @url )
   if(not defined $page) {
     push @error, $url
     next
   }
   push @url, match_base_url ( extract_links ( $page ) )
   push @info, [ extract_header_tags $page ]
}
print_information for @info
print_error_url for @error