use strict;
use warnings;

my $path="c:\\teste";

sub procura_ficheiros{
($path)=@_;
opendir(DIR, $path) ||die "$!";
my @files=grep{/\.c$/} readdir(DIR);
close (DIR);

return @files;
}

my @res=procura_ficheiros($path);
foreach my $fich (@res){
  my $final=$path."\\".$fich;
  print "Ficheiro: $path\\$fich\n";
    print "Final: $final\n";
}