Följande borde funka:
use Time::Local;
my $days = int((timelocal(0,0,0,26,6,2002) - time) / 86400) + 1;
print <<_HTML_;
Content-type: text/html
$days dagar till ...
_HTML_
Avrundningsalgoritmen är lite "rå", så det kommer inte fungera när dagen D är här. Månaderna börjar räknas från 0, så det blir alltså 6 i stället för 7.