#!/usr/bin/perl
use strict;
use warnings;
my $active=10;

while (1)
{
        
  if ($active)
  {
    print "Active\n";
    $active--;
  }
  else
  {
    print "Inactive\n";
    last();
  }
}