#! /usr/bin/env perl

use warnings;
use strict;

select (STDERR);
$| = 1;

while ( 1 ) {
   print '.';
   sleep 1;
}