Differenz zweier Datums

[Beat]

Brauche für ein Projekt, eine Berechnung (per EINGABE <STDIN> )zweier Datums.
Also angenommen 01.03.1999 und der 31.10.2009 daraus die Differenz bilden.
Nun ich habe mich schon vorab Informiert das es wie (Time::Local) gibt, und son Modul, aber ich habe absolut keine Ahnung wie das von Statten gehen soll... :=( .

  
#SYNOPSIS  
  
#    $time = timelocal($sec,$min,$hour,$mday,$mon,$year);  
#    $time = timegm($sec,$min,$hour,$mday,$mon,$year);  
  
# es handelt sich um Umkehrfunktionen zu locatime.  
# es gilt also -1 für Monate und -1900 für Jahre zu beachten  
# bei timelocal darf auch auf -1900 verzichtet werden.  
# Input muss entsprechend validiert werden.  
  
my @time;  
    $time[0] = timelocal( 0, 0, 0, 31, 10-1, 1999-1900 );  
    $time[1] = timelocal( 0, 0, 0, 31, 10-1, 2009-1900 );  
# Jetzt bilde den Absolutwert der Differenz und  
# a) füttere das Resultat wieder localtime() zu.  
#    ergänze wieder Mon+1 Jahr+1900 oder  
# b) betrachte das Ganze als Differenz in Sekunden und Teile durch  
#    60*60*24 um die Differenz in Tagen zu erhalten.  

mfg Beat;