As I have already mentioned here, you could use my upcoming FileSystemObjects-module. If you want to test it, the code for your task would look like

use FileSystemObjects::Directory;

my $d = FileSystemObjects::Directory->new( '/root/dir' );
my @f = $d->files( -mask => "*.txt" );
[download]