#!/usr/bin/env perl

use strict;
use warnings;
use IO::Handle;

STDOUT->autoflush(1);
while (1) {
    print STDOUT "ping\n";
    sleep 2;
}