Netprint perl script from Handbook doesn't work

[Mel]

On Wednesday 24 September 2008 12:33:29 Andy Kosela wrote:

> ($ignore, $ignore, $protocol) = getprotobyname('tcp');

$ perl -e 'print join("\n", getprotobyname("tcp"));'
tcp
TCP
6

-- 
Mel

Problem with today's modular software: they start with the modules
    and never get to the software part.