Numero de palabras pl

#!/usr/bin/perl
##Palabras##
$palabras=0;
$linea=<STDIN>;
while ($ linea ne "") {
chop($ linea);
@arr=split(/ /, $ linea);
$palabras=palabras+@arr;
$linea=<STDIN>;
}
print ("\nEl total son: $ palabras palabras\n");