I can advice you two solutions:

1. Use SO_KEEPALIVE socket option like in the following example:

  use IO::Socket;
  my $sock = IO::Socket::INET->new('some_server');
  $sock->read(1024,$data) until $sock->atmark;
[download]

2. You may use NetPacket::ICMP to check if remote host is alive.