Select Code to Download

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