#!/usr/bin/perl
$SIG{PIPE} = sub { die 'SIGPIPE received' };
$| = 1;
sleep 10;
# print "x\n";
while (1) { sleep 10; }