sashaphanes

#~/usr/bin/perl -w

use strict;
use warnings;

my $count;

for ($count = 1; $count <= 100; $count++) {
    if ($count % 15 == 0) {
	print "FizzBuzz\n";}