";
     print "Aktuell tid ";
     print $tid[2];
     print ":";
     print $tid[1];

     print "
";

     if (checkdate(5,15,2012))
        print "Datum OK!";
     else
        print "Felaktigt datum.";
     print "