Help for this page

Select Code to Download

Select or download this

use FileSystemObjects::Directory;

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