#! /usr/bin/perl -w
use strict;

$| = 1; # This forces your selected filehandle (STDOUT
        # in this case) to be unbuffered.
my $i = 0;
while (1)
{
        sleep(1);
        print $i++," - ",$i++," - ",$i++,"\r";
}