# takes a url as input and returns the domain<br/>
sub getDomain()
  my ($url) = shift;
  $url =~m#^(http://.+?/)(.*)#i;
  return $1;
}