#!/site/jtkohl/perl
# fromd...telnet to it, and it runs 'from' as you...
$port = 2831;
require 'sys/socket.ph';

$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
 $this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
bind(S, $this) || die "bind: $!";
listen(S, 5) || die "connect: $!";
for (;;) {
 close(STDOUT);
 ($addr = accept(STDOUT,S)) || die $!;

 ($af,$port,$inetaddr) = unpack($sockaddr,$addr);
 @inetaddr = unpack('C4',$inetaddr);

 system("/usr/ucb/from");	
 close(STDOUT);
}