use strict;
use warnings;
our $var;
BEGIN { 
   $var="HELLO"; }
#
BEGIN { 
   print $var; }