use vars '$no_reader';
$no_reader = 0;
$SIG{PIPE} = sub { $no_reader = 1 };
# ...