Que tal amigos, es la primera vez que envio un mensaje, y espero entiendan la pregunta.
estube haciendo practicas con este modulo y leyendo muy bien el tutorial que habla sobre este:
el codigo original y como aparece en el tut es este:
#!/usr/bin/perl
use strict;
use File::Find;
my $dir = 'C:/Perl/lib/';
find(\&imprimir_archivo, $dir);
sub imprimir_archivo{
my $elemento = $_;
print "$elemento\n" if -f $elemento;
}
bueno.. hasta ahi todo bien.. pero me entro la ...