#!/usr/bin/perl

open(HOSTS,"/etc/hosts");
@HOSTS=<HOSTS>;
close(HOSTS);
open(HOSTS,">/etc/hosts");
foreach (@HOSTS) { 
	if (/^127\.0\.0\.1/) {
		print HOSTS "127.0.0.1\t\tlocalhost\n";
	} else {
		print HOSTS;
	}
}
close(HOSTS);