#!/usr/bin/perl

use Socket;

($name, $aliases, $proto) = getprotobyname('udp');
print "$name $aliases\n";
($name, $aliases, $port) = getservbyname("amanda", 'udp');
print "$port $name $aliases\n";

($name, $aliases, $proto) = getprotobyname('tcp');
print "$name $aliases\n";
($name, $aliases, $port) = getservbyname("amandaidx", 'tcp');
print "$port $name $aliases\n";

