вопрос по сетевым сокетам в perl

use IO::Socket::INET;

$csock = IO::Socket::INET->new (PeerAddr => '127.0.0.1' ,
				PeerPort => '1122' ,
				Proto    => 'tcp' , 
				Type     => SOCK_STREAM
				) or die "can't connect! $!";

print <$csock>;

close($csock);

потом запускаю netcat так:
echo "test" | nc -l -p 1122

когда запускаю вышепреведённый код то слово test отображается только 
тогда ,когда прибить процес netcat , а не сразу

почему ?