#MAIN:
my $foo = "aaaaaaa";
my $bar = "bbbbbb";

print add_strings ();

#MODULE:
our ($foo, $bar); #this might be make-believe

add_strings {
   my $newstring = $foo . $bar;
   return ($newstring);
}