sub getWebPage
{
  my $url = $_[0];
  my $page = get($url);
  ...
  foreach (website link found in $page)
  {
    new Thread \&getWebPage, website;
  }
  ...
}