Perl implementation of FizzBuzz "test code"

#!/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