bind(Server, $uaddr) or die "bind: $!";
listen(Server,SOMAXCONN) or die "listen: $!";
bind(Server, $uaddr) or die "bind: $!";
listen(Server,SOMAXCONN) or die "listen: $!";
my($paddr);
for ( ; $paddr = accept(Client,Server); close Client) {
my($me,$old_password,$new_password,$new_gecos,$new_shell);
my($paddr);
for ( ; $paddr = accept(Client,Server); close Client) {
my($me,$old_password,$new_password,$new_gecos,$new_shell);