open (VHOSTS, "<", $vhosts_file)
  or &error("Kann die Datei '$vhosts_file' nicht lesen: $!", 1);
my @vhosts = do {
  local $/ = "\n\n";
  <VHOSTS>;
};
close(VHOSTS);