#!/usr/bin/perl
#
# Sample time manipulation.
# author : webi <python_bg@abv.bg>
#

use strict;
use warnings;

my($i) = 0; # counter
my($j) = 1; # seconds to sleep
my($n) = 5; # symbols to end line

_sleep ($j, '_perl', $i);

sub _perl
{
print $i, ",";
if ($i == $n)
{
print "\n";
$i = -1;
}
$i++;
_sleep ($j, '_perl', $i);
}

sub _sleep {

my($sec) = $_[0];
*prog = $_[1];

sleep $sec;
&prog;
}