package Hello2;
use strict;
our $var1 = 1;
my $var2 = 3;
my $str = "Hello World!\n";
sub greet {
   return $str;
}
1;