Select Code to Download

package Date::Verify;
use strict;
...
}

1;

#!/usr/bin/perl
use strict;
...

  print "$unbirthday_text, $name! You have $days_til_next_bday days un
+til your next birthday on $birth_month_name $birth_day, $next_year.\n
+";
}

#!/usr/bin/perl
use strict;
...
Libra      |September|24|October  |23|chrysolite
Scorpio    |October  |24|November |22|beryl
Sagittarius|November |23|December |21|topaz