Select Code to Download

use vars qw(%friends);

sub getFriends { 
  # Initializes my little hash
  our %friends = (Paul => 1, Suzie => 1);
  return %friends;
}

use Friends;
my %friends = &getFriends();  # for lexical scope

require "outsidefile";
print %friends;

#
# guess what? I'm in main's scope !!!
#
%friends = (Paul => 1, Suzie => 1);