sub getDomain {
  my ($url) = @_;
  $url =~ m#(http://[^/:]+)#i;
  return $1;
}