$SIG{PIPE} = sub { $log->warning("Caught SIGPIPE:  $!"); $running = 1; };