use strict;
use warnings;
use diagnostics;
use Net::Netmask;

my $result = `ipconfig | find "IPv4 Address"`;
($result) = $result =~ m/(\d+\.\d+\.\d+\.\d+)/; 
print "OLD IP: $result\n";