package Dog {
   our $name="Odie";
}
package Cat {
   $name = "Garfield";
   print "$name says hello to $Dog::name. \n" ;
}