our $PARENT_ALIVE = 1;
$SIG{PIPE} = sub { $PARENT_ALIVE = 0 };

[...]

$unix_sock->print($message) if $PARENT_ALIVE;
if (! $PARENT_ALIVE) {
    print "note: parent died; will not attempt future messages.\n";
}