#!/usr/bin/perl 
$Year = "2013";
require "timelocal.pl";
$deadline =timelocal(1,0,2,16,1,$Year-1900);    # 2:00:01am of 16 Feb thisyear 2013
if (time() > $deadline) {
    print "AFTER DEADLINE\n";
    print "$deadline \n";
    print time();

} else {
    print "ON TIME\n";
 }