FizzBuzz implemented in Perl.

fizzbuzz.pl

#!/usr/bin/env perl

foreach $number (1..100) {
    $three = 0;
    $five  = 0;

    if (($number % 3) == 0) {
        print 'Fizz';
        $three = 1;
    }

    if (($number % 5) == 0) {
        print 'Buzz';
        $five = 1;
    }

    if ($three || $five) {
        print "\n";
    } else {
        print "$number\n";
    }
}

$ ./fizzbuzz.pl
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
...