fizzbuzz.pl

#!/usr/bin/perl 
 
use strict; 
use warnings;                                                     
 
sub fizzbuzz { 
    my $n = shift; 
 
    for(1 .. $n){ 
        my $res = ""; 
 
        if($_ % 3 == 0){ 
            $res .= "Fizz"; 
        } 
        if($_ % 5 == 0){ 
            $res .= "Buzz"; 
        } 
        if($res eq ""){ 
            $res = $_; 
        } 
        print "$res\n"; 
    } 
} 
 
fizzbuzz(15);