perl -i.bak -nle'
    BEGIN { print("IPADDR=", shift(@ARGV)) }
    print if !/^IPADDR=/;
' 1.1.1.1 dir/sys/network-scripts/ifcfg-eth0

##</code><code>##

print("IPADDR=$ip\n");
while (<$fh_in>) {
    print $fh_out $_ if !/^IPADDR=/;
}

##</code><code>##

my $found = 0;
while (<$fh_in>) {
    ++$found if s/^IPADDR=.*/IPADDR=$ip/;
    print $fh_out $_;
}

print("IPADDR=$ip\n") if !$found;