use Filesys::Tree qw/tree/;

my $sysTree = tree({ 'full' => 1,'max-depth' => 3,'pattern' => qr/\.rt
+f|\.ftp$/ } ,'.');
files($sysTree);

sub files
{
    my %treeree = %{+shift};
    for (keys %tree) {
        if ($tree{$_}->{type} eq 'f'){
            print $_,"\n"
        }elsif ($tree{$_}->{type} eq 'd') {
            files($tree{$_}->{contents});
        }
    }
}
[download]

I only want to print the names of files

So edit the code that prints out directories, and like comment it out or something :)

When I run the above script on a directory I get the following output even there are files with same name but with both extensions .rtf and .ftp

$VAR1 = [];
[download]

It seems like the below code is printing the files with .rtf or .ftp files,I want to print files that has both .rtf and .ftp extension.Can someone advise?

use warnings;
use strict;
use File::Find::Rule;
use Data::Dumper;

my @files = File::Find::Rule->file()
                            ->name( '*.rtf', '*.ftp' )
                            ->in( './' );
print Dumper(\@files);
[download]