fizzbuzz.pl

#! /usr/bin/perl

use strict;

my $in=$ARGV[0];
my $res;
my $ver;

for $ver(1..$in){
        $res="";
        if ($ver % 3 == 0 || $ver % 5 == 0 ){
                if ( $ver % 3 == 0 ){
                        $res="Fizz";
                }
                if ( $ver % 5 == 0 ){
                        $res.="Buzz";
                }
        } else {
                $res=$ver;
        }
        print $res,"\n";
}