OT: Problem v perlu

[Borek Lupomesky]

   Hi all,

   Je to mirne off-topic, nicmene se zeptam. Mam jednoducheho klienta pro
finger v perlu - ale nechce mi to chodit. Nevite, kde je chyba? Jinak to
pise "Broken pipe". Kdyz vyhodim volani shutdown(), tak to ceka
donekonecna.

=-=-=-=
use strict;
use Socket;

my ($paddr,$line);

$paddr = sockaddr_in(79, inet_aton("127.0.0.1"));

socket(S, PF_INET, SOCK_STREAM, getprotobyname("tcp"));
connect(S, $paddr);
print S "\n";
shutdown(S,1);
while ($line = <S>) {
  print $line;
}
close(S);
exit;
=-=-=-=-

   Bye Borek

--

=====================================================================
BOREK LUPOMESKY, network administrator    University of J. E. Purkyne
WWW:       http://www.ujep.cz/~lupomesk/  Ceske mladeze 8
IRCnet:    Borek @ #usti                  Usti nad Labem, 40096
talk:      borek na ishtar.ujep.cz           The Czech Republic
PGP keyid: 9DD1C54D   ICQ: 10139578       tel: +420-602-376368
==========[ MIME/ISO-8859-2 & PGP encrypted mail welcome ]===========