#! /usr/bin/perl -ws
use strict;
use vars qw($f);

sub getservice ($)
{
	(my $search) = @_;

	open SERVICES, "/etc/services" or die "Couldn't open /etc/services";
	while (<SERVICES>) { print if /\b\Q$search\E\b/; }
	close SERVICES;
}

if ($f)
{
	while (<>)
	{
		chomp;
		getservice $_;
	}
}
else
{
	while (defined (my $arg = shift))
	{
		getservice $arg;
	}
}