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

##</code><code>##

  use vars qw(MESSAGES); # wrong !!!!!!