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

##</code><code>##

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