sub server {
    local $SIG{PIPE} = 'IGNORE';
    while (my $client = $server->accept()) {
        for my $sec (1..60) {
            sleep 1;
            print $client "$sec\n"
                or last;
        }
    }
}