#!/usr/bin/env perl
#
# $Id$

use strict;
use warnings;

foreach my $i ( 1 .. 100 )
{
  print !( $i % 15 ) ? 'FizzBuzz'
   : !( $i % 5 )     ? 'Buzz'
   : !( $i % 3 )     ? 'Fizz'
   :                   $i;
  print "\n";
}