my $svcwatch =
   ( $name !~ /^#/ ) ? getservbyport ( $port, $proto ) : next;

if (! defined $svcwatch) {
   warn("getservbyport return undef");
}