#!perl -w
use strict;

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