Alternatively, one can use "send" instead of "syswrite". Like this

use Socket qw(MSG_NOSIGNAL);
use Errno;

my $out = send($sock, $data, MSG_NOSIGNAL);
unless(defined $out)
{
     if($!{EPIPE}) { warn("Got broken pipe\n"); }
}
[download]