#!/usr/bin/env perl

use strict;
use warnings;

#Fizz buzz example
# For 1 .. 10 if odd print fizz, otherwise print buzz

for my $num (1..10) {
   # print "$num: "; # Debug
   if ($num % 2) {
      print "fizz\n";
   }
   else {
      print "buzz\n";
   }
}