#!/usr/bin/perl

use strict;
use warnings;

$|++;

for my $i ( 1 .. 15 ) {
    print $i,"\r\n";
    select undef, undef, undef, 0.5;
}