#!/usr/bin/perl -w

use CGI qw/:standard/;
use Date::Simple;

my $quitdate = Date::Simple->new(2004, 7, 9);   # last day at CSCO
my $startdate = Date::Simple->new(2005, 5, 17); # started @ industria
my $hiredate = Date::Simple->new(2005, 5, 10);  # signed papers

print  header, start_html("Days living the highlife"),h1("Days living the highlife");
print <<HERE;
Being a geek, and seeing as it was a three liner to do so, I had a script here that calculated how long I'd been out of work.
Unfortunately, I've taken up paid employment again, so my days of a free 
sprited playboy have had to come to an end.  For posterity, I've kept my highscore.
HERE
my $days = int($startdate - $quitdate);
print h2("I lived the highlife for $days days!");
print "from $quitdate to $startdate";