#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;
use Carp qw(cluck carp croak);

my $c=1;
for(1..15) {
    say 'COUNT: '.$c;
    $c++;
    sleep(1);
}