print "Please enter the ip address for this machine.  This will be eth0:\n";
my $ip = <>;
chomp $ip;

my $if0 = "ifcfg-eth0";
my $if1 = "ifcfg-eth1";
my $ifdir = 'network-scripts';
my $ifsub1 = "IPADDR=";
my $ifsub2 = "BOOTPROTO=";
my $ifsub3 = "none";

my $IP;
my $NEW;

open ($IP, "<", "$dir/$sys/$ifdir/$if0");
open ($NEW, ">", "$dir/$sys/$ifdir/$if0.new");

my @ary = ( grep { $_ !~ m/IPADDR/ } (<$IP>));
s/($ifsub2).+$/$1$ifsub3/ for @ary;
print $NEW @ary;
print $NEW "IPADDR=$ip\n";

close $IP;
close $NEW;