print "Content-type: text/html\n\n";
open (netsh, "C:/WINDOWS/system32/netsh.exe dhcp server scope <scopeipremoved> dump|");
foreach my $line (<netsh>) {
    print $line;
}
close netsh;