sub get_files {
    my $directory = shift;	
	
    my @files;
    
    find(sub { 
        return unless /\.t$/;

    	my $n = $File::Find::name;
        $n =~ tr{\\}{/};
        push @files, $n;
    }, $directory);

    return @files;
}