#!/usr/bin/perl -w use strict; # date -d "May 29 14:25" +%s my $target=1275135900; my $now=time; my $diff=$target-$now; print << "EOF"; Content-type: text/html