#!/usr/bin/perl

use strict;
use warnings;
use Tie::CountLoop;

tie my $counter, 'Tie::CountLoop', 'sno:10'; 
tie my $counter1, 'Tie::CountLoop', 'cno:20';

my $t = tied $counter;
my $t1 = tied $counter1;
$t->auto(1);
$t1->auto(1);
print "    <<$counter>>:10    \n",
      "    <<$counter1>>:20    \n";