Select Code to Download

package Date::Birth::Stone;
use strict;
...
October  |opal
November |topaz
December |turquoise

package Date::Birth::Flower;
use strict;
...
October  |calendula or marigold          |marigold
November |chrysanthemum or peony         |chrysanthemum
December |holly or Narcissus             |pionsetta

package Date::Birth::DayStone;
use strict;
...
Thursday |sapphire or carnelian
Friday   |emerald or cat's eye
Saturday |turquiose or diamond

package Zodiac::Stone;
use strict;
...
Libra      |September|24|October  |23|chrysolite
Scorpio    |October  |24|November |22|beryl
Sagittarius|November |23|December |21|topaz

#!/usr/bin/perl
use strict;
...
  print "Birthday stone: $day_stone\n";
  print "Sign stone: $sign_stone\n" if $sign_stone;
}