#!/usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$year -= 94;
$daytime = ($hour * 60 + $min) / 144;

printf "%u%02u%02u.%u\n", $year, $mon, $mday, $daytime;