This works for my current project:

$SIG{PIPE} = sub { 
    $error = "Lost connection - broken pipe." 
};

# your eval wrapped code here (YMMV)

return $error if ($error);
[download]

I owe credit to mdillon for this one via chatterbox, or was it tye . . .

Jeff

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)