#!/usr/bin/perl

use strict;
use warnings;

my @files = glob('/your/dir/*.txt');
foreach my $file(@files) {
    print $file, "\n";
}