August 1999 Perl Hardware Store Slide #33

         sub compare_dates {
           to_number($a) <=> to_number($b);
         }


Next Copyright © 1998 M-J. Dominus