#!perl

print map {
    $_ % 5 == 0 && $_ % 3 == 0
        ? 'FizzBuzz'
        : $_ % 3 == 0 ? 'Fizz'
        : $_ % 5 == 0 ? 'Buzz'
        : $_
} ($ARGV[0]..$ARGV[1]);