#!/usr/bin/perl

use strict;
use warnings;

$|++;

my $counter = 0;

while(1){
  print ++$counter,"\r";
  sleep 1;
}