#!/usr/bin/perl

use warnings;
use strict;

use File::Find;
find(\&file_names, $ARGV[0]);
sub file_names {

if(-f $File::Find::name=~/.txt$/)
{
print "$File::Find::name\n";
my @files=$File::Find::name;

}
}