use IO::Socket;

  $yhendus = IO::Socket::INET->new(
     Proto     => "tcp",
     PeerAddr  => "lin2.tpu.ee",
     PeerPort  => "finger",
  );
  if($yhendus){
    print $yhendus "jaagup\n";
    while($rida=<$yhendus>){
      print $rida;      
    }
  }
