my $replacements = {
	'/etc/hosts' => {
	'hosts' => {
		"^.*$params{hostname}.*" => "$params{ip}\t$params{hostname}.$params{domainname}\t$params{hostname}",
	},

	'/etc/sysconfig/network' =>	{
		"^GATEWAY.*"      => qq'GATEWAY="$params{gateway}"',
		"^HOSTNAME.*"     => qq'HOSTNAME="$params{hostname}"',
		"^DOMAINNAME.*"   => qq'DOMAINNAME="$params{domainname}"',
	},

	'/etc/sysconfig/network-scripts/ifcfg-eth0' => {
		"^IPADDR.*"       => qq'IPADDR="$params{ip}"',
		"^NETMASK.*"      => qq'NETMASK="$params{subnetmask}"',
	},

	'/etc/resolv.conf' => {
		"^nameserver.*"   => "nameserver $params{dns}",
		"^SEARCH.*"       => "SEARCH $params{domainname}",
	},
};

file_edit($replacements);

`/etc/init.d/network restart`;

########################file_edit###################

sub file_edit {
    my $replacements = shift;
	foreach my $filename (keys %{$replacements}){
		print STDERR "Processing file [$filename]\n";