#!/usr/bin/perl

$ip = 0;
my $cmd='ipconfig';
my @routes=`$cmd`;
foreach my $route (@routes)
{
chomp($route);
if ($route =~ /IP/is)
{
$ip = $1 if $route =~ /(\d+\.\d+\.\d+\.\d+)/;
}
}
print $ip; <stdin>;