#!/usr/local/bin/perl
# Prilusky 2004
# __DATA__ token

  while ($l = <DATA>) {
    chomp($l);
    ($name,$port) = split(/\s+/,$l);
    ($portnum,$protocol) = split(/\//,$port);
    print "$name is on $portnum ($protocol)\n";
  }

  
__DATA__
klogin          543/tcp
kshell          544/tcp
new-rwho        550/udp
rmonitor        560/udp
monitor         561/udp
pcserver        600/tcp
sun-dr          665/tcp
kerberos-adm    749/tcp
kerberos-adm    749/udp
kerberos        750/udp
kerberos        750/tcp
krb5_prop       754/tcp