#!/usr/bin/perl

use strict;
use warnings;

$|++;

my $counter = 0;

START:
  print ++$counter,"\r";
  sleep 1;
  goto START;