Perl FizzBuzz

fizzBuzz.pl

#~/usr/bin/perl -w

use strict;
use warnings;

my $count;

for ($count = 1; $count <= 100; $count++) {
    if ($count % 15 == 0) {
	print "FizzBuzz\n";}
    elsif ($count % 3 == 0) {
	print "Fizz\n";}
    elsif ($count % 5 == 0) {
	print "Buzz\n";}
    else {print "$count\n";}
}

exit;