perl IO::Socket::INET的问题？

perl IO::Socket::INET的问题？
1：use IO::Socket;
2：my $sock = new IO::Socket::INET("mailserver:25");
3：print $sock "HELO web";
4：...
..
..
N：close($sock);

在第2行的时候，还是连上的状态，到了第3行要发送数据的时间，缺发现已经和服务器断开，这是为什么？
请指教。