#!/usr/bin/perl

# Install into your /etc/inetd.conf with a line like the following:
# auth  stream  tcp     nowait  nobody    /usr/local/bin/identd.pl  identd.pl

$/ = "\n";
eval {
  local $SIG{ALRM} = sub { die "timeout"; };
  alarm 15;
  if (<STDIN> =~ m/^\s*(\d+)\s*,\s*(\d+)/) {
    print "$1, $2 : USERID : UNIX : bovine\n";
  }
  alarm 0;
};
exit 0;