Select Code to Download

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

print "Content-type: text/html\n\n";
print `netsh dhcp server scope <scopeipremoved> dump`;