Select Code to Download

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

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