BEGIN {
  open(MESSAGES,'>msg.txt') or die "$!";
}