[Perl] Sacar promedios

Estaba leyendo un paper de perl (más precisamente la segunda parte del tuto de perl de la ezine RTM Essential, que está en el segundo número) y en el final vendett@ deja como consigna que hagamos un sriptcin que calcule el promedio. Como sé que varios (al igual que yo) recién se están iniciando en perl decidí postear el código que escribí yo para el que no entienda, o no sepa como se hace. De paso espero que sirva para los que no saben perl se interesen y empiezen a aprender :)

#!/usr/bin/local/perl

print "Cuantas notas vas a promediar: ";
my $cantidad=<stdin>;
chomp($cantidad);

my $final = 1;
my $suma = 0; 
do {
    print "Ingresa la nota numero $final: ";
    $notas=<stdin>;
    chomp($notas);
    $suma = $suma + $notas;
    $final++;
} until ($final == $cantidad+1);

$promedio = $suma / $cantidad;
print "El promedio es de: $promedio\n";