perl -le "print scalar getprotobyname(qq{tcp})"