@list = glob "$source\\*.txt";