#!/usr/bin/perl

use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';

use Time::Local;

print header;
my $start = timegm(0, 0, 0, 9, 1, 2004);
printf "%d", int((timegm(localtime) - $start)/(24*60*60));