numero de dias que faltan como lo hago ?

[jferrero]

Esta es una forma de hacerlo...

Código:

#!/usr/bin/perl

use Time::Local;

# Fecha final
$fecha = '2007/12/31';          # Formato aaaa/mm/dd

# Extraemos la información de la $fecha
($ano,$mes,$dia) = $fecha =~ /(\d+)/g;  # Buscamos grupos de dígitos

# Pasamos la fecha a segundos desde epoch
$futuro = timelocal(0,0,0,$dia,$mes-1,$ano-1900);

# Diferencia de tiempo con respecto a ahora
$diferencia = ( $futuro - time() ) / 86_400;
print "Diferencia en días: $diferencia\n";