$link =~ m{http://([^/]+)};
  $server = $1;