hacé esto,
my $segundos = time();
Eso te da la cantidad de segundos desde una fecha estandard, creo que es el 01/01/70...
Para saber que fecha es puedes hacer
my ($sec,$min,$hora,$mday,$mon,$ano,$wdia,$ydia,$isds t,@fecha) = localtime (time);
teniendo una fecha puedes ir a los segundos de epoch con el modulo
time::local
y así restarlos y sacar los días...
Espero que te sirva
saludos