Bug in How to Build a Netboot Server PERL Code