open (MSG, '>> messages.txt');
print MSG $mess_line;
close MSG;