perl -lane'$h{$F[1]}=$F[0]}{print $h{"21/tcp"}' /etc/services