To simply grab a list of filenames that match some expression within a directory, just use glob:

sub get_files {
    chdir( $_[0] );
    return glob( $_[1] );
}
[download]

Usage:

my( @files ) = get_files( '/path/to/files', '*.t' );
[download]

This will change your current working directory.