use strict;
use warnings;
use File::Find::Rule;
my $path = '/home/vishi83';
my $rule = File::Find::Rule->new;
    $rule->file;
    $rule->name('*.txt');
    my @filez = $rule->in($path);