open(CHK,"httpd -S 2>&1 |") || die "error vhosts $!\n";
while (my $li = <CHK>){
print "--$li\n";
}close CHK;