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