#!/usr/bin/perl -w
use strict;
my $i = 0;

while ($i < 10) {
        print "bla\n";
        sleep(1);
        $i++;
}