ans to http://d.hatena.ne.jp/JunichiIto/20111007/1317976730

FizzBuzz.pl

#!/usr/bin/perl
use feature 'say';
use warnings;
use strict;

usage() unless scalar(@ARGV) == 1;
our $max_value = $ARGV[0];
usage() unless $max_value > 0;

for my $i (1 .. $max_value){
	if(fizzbuzz($i)){
		say 'FizzBuzz';
	}elsif(fizz($i)){
		say 'Fizz';
	}elsif(buzz($i)){
		say 'Buzz';
	}else{
		say $i;
	}
}

exit;

sub fizz{
	my $n = shift;
	return ($n % 3 == 0);
}

sub buzz{
	my $n = shift;
	return ($n % 5 == 0);
}

sub fizzbuzz{
	my $n = shift;
	return fizz($n) && buzz($n);
}

sub usage{
	die "Usage: $0 max_value\n";
}