#!/usr/bin/perl

$txt = <<TXT;
BOOTPROTO=static
IPADDR=192.168.30.130
NETMASK=255.255.0.0
NETWORK=192.168.0.0
BROADCAST=192.168.255.255
ONBOOT=yes
MII_NOT_SUPPORTED=yes
TXT

$number = 0;
while ($number < 20) {
	$texte = "DEVICE=eth" . $number . "\n" . $txt;
	$filename = "ifcfg-eth$number";
	system("echo '$texte' > /etc/sysconfig/network-scripts/$filename");
	
	$number++;
}
system("chmod +x /etc/sysconfig/network-scripts/ifcfg-eth*");