open(HST, "<$hosts");
        @HOST = <HST>;
        close(HST);
        open(HST, ">$hosts");
                     foreach (@HOST) {
                     s/$uname/$answer1/g;
		               s/domainsuffix.net/$answer4/g;
                     print HST $_;
        }