#sub get_files {
#	
#	my ($work_dir, $ext) = @_;
#    opendir (FILES, "$work_dir");
#	my @to_go = grep {/\.$ext$/} readdir(FILES);
#	close(FILES);
#    return (@to_go);
#	
#}