#!/usr/bin/perl -w




system('clear');




&mainSubRoutineBlock;


sub mainSubRoutineBlock 

{
&setupNumbers;

# &otherVariables;

&mainCalculation;

#  printf "$counter\n";
#  $counter = ++$counter;
#  printf "$counter\n";
#  printf ($counter % $fizzNum);


&terminateScript;
}



sub setupNumbers 
{
$fizzNum = 3;
$buzzNum = 5;
$newlineNum = 10;
$counter = 1;
}

# sub otherVariables 
# {
# if 
# }

sub mainCalculation 
{


	printf "\n\n\n\n\n\n";


	while ($counter != 101)
	{
	if (($counter % $fizzNum) == 0) {printf 'Fizz';}
	if (($counter % $buzzNum) == 0) {printf 'Buzz';}
	if (($counter % $fizzNum != 0) && ($counter % $buzzNum != 0)) {
		printf "$counter";
		}

	printf ', ';
	if (($counter % $newlineNum) == 0) {printf "\n";}

	$counter = ++$counter;
	}

}

sub terminateScript 
{
	# tell the user what is
	# going on.. it is done

	printf "\n\n\n".'The test script has terminated.'."\n\n";
	exit;
}










#EOF