use strict;
use warnings;
use Data::Dumper;

# Option 1
my @doms = ();
my $line;
my $found=0;
my $junk;
my $searchdom;

open my $data, '-|', 'ipconfig /all';
while ($line = <$data>) {
	if ($line =~ /DNS Suffix Search List/ ) {
		$found=1;
		($junk,$searchdom)=split(/:/, $line);
		$searchdom =~ s/\s+//g;
		push(@doms,$searchdom);
	}
	elsif ($found && ($line !~ /:/ && $line !~ /^\n/) ) {
		chomp $line;
		$searchdom=$line;
		$searchdom=~ s/\s+//g;
		push(@doms,$searchdom);
	}
	elsif ( $found ) {
		last;
	}
}
close $data;
#print "$_\n" foreach(@ips);
print Dumper \@doms;


# # Option 2
use Win32::IPConfig;
my $host = "";
my $ipconfig = Win32::IPConfig->new($host);
my @searchlist = $ipconfig->get_searchlist;
print Dumper \@searchlist;