#!perl -w
use strict;

my $dir = "c:\\temp\\";
my @results = <$dir*>;
foreach (@results) {
   print "Linha.......: $_ \n";
}
[download]

Just another option! :)

__________________________________________________
<moviequote name="The Whole Nine Yards">
Jimmy T: Oz, we're friends, friends do not engage in sexual congress with each others wives.
</moviequote>

%mexnix = (email = > "mexnix@hotmail.com", website => "http://mexnix.perlmonk.org");