#!/usr/bin/perl
use integer;
use Time::Local;
# $desttime = timegm($sec,$mins,$hours,$mday,$mon,$year)
$desttime = timegm(0,30,8,4,5,2001);
$t = $desttime - time();
$seconds = $t % 60;
$t = $t / 60;
$mins = $t % 60;
$t = $t / 60;
$hours = $t % 24;
$t = $t / 24;
$days = $t;

print "Content-type: text/html \n\n";
print "Time until my first exam: $days days, $hours hours and $mins minutes.\n";