How would i write a perl script that would do something like this so it will fix any network i am on?

That module won't fix a network: it won't clean up broken routing tables, bogus DNS settings, multiple competing DHCP servers overwriting each others resources, or beat to death hosts with the same IP on the network, or else. The module is stuffed with examples, so reading those could give you a clue.

What do you mean by 'fix'? what breakage are you searching for? If you told that, it would be a starting point for helping.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}