Help for this page
my $svcwatch = ( $name !~ /^#/ ) ? getservbyport ( $port, $proto ) : next; ... if (! defined $svcwatch) { warn("getservbyport return undef"); }