Listar ficheros de un directorio con perl

El uso de comandos linux shell en rutinas perl es habitual usando exec(), system() o `comando linux`.
El problema es entonces que las rutinas solo funcionaran en entornos linux no en widows con perl instalado.

Para solucionas esto y mejorar la portabilidad de las ritnas perl hay que hacerlo todo en "pure perl".

Un clon de "ls" en perl:

#!/usr/bin/perl

$dir = "/directorio";

opendir(DIR, "$dir");

@FILES = readdir(DIR);

foreach $file (@FILES) {

print $file, "\n";

}

closedir(DIR);

Ref.: http://perldoc.perl.org/functions/readdir.html