package Hello4;
use strict;
use Exporter;
our @ISA="Exporter";
our @EXPORT_OK = qw(greet);
our @EXPORT = qw(greet2);
our $var1 = 1;
my $var2 = 3;
my $str = "Hello World!\n";
sub greet {
   return $str;
}

sub greet2 {
   return "Hi.\n";
}
1;