Help for this page

Select Code to Download


  1. or download this
    package Date::Verify;
use strict;
...
}

1;
  2. or download this
    #!/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
+";
}
  3. or download this
    #!/usr/bin/perl
use strict;
...
Libra      |September|24|October  |23|chrysolite
Scorpio    |October  |24|November |22|beryl
Sagittarius|November |23|December |21|topaz