#!/usr/bin/perl 

#use strict;
#use warnings;

my @dir = '../Perl/Test/';
my $ending = '.ffn';

# Destination file:
my $outFile = "out.ffn";

my $dir = '';
for $dir (@dir)
{
if (opendir( DIR, $dir))
	{
	for (readdir(DIR)) 
		{
		next if (/^\./);
		push @dir ,"$dir$_/" if (-d "$dir$_");
		&file($dir,$_) if (-f "$dir$_") && $ending eq (/.*(\..*)/)[0];
		}
closedir DIR;

	}

}