fizz buzz by Perl

fizz_buzz.pl

my $endval = $ARGV[0];

my $fizz;
my $buzz;

foreach my $i (1 .. $endval) {

    $fizz = $i % 3;
    $buzz = $i % 5;

    if ($fizz == 0 and $buzz == 0) {
        print "FizzBuzz";
    }
    elsif ($fizz == 0) {
        print "Fizz";
    }
    elsif ($buzz == 0) {
        print "Buzz";
    }
    else {
        print "$i";
    }
    print "\n";
}