#!/perl -w

use strict;

my $results = `ipconfig /all`;

open(IPINFO, ">C:/ipconfig.out");

print IPINFO $results;

close IPINFO;